<b>Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
Select Case Target.Column
Case 1
Cells(Target.Row, 1).Select
With Selection
.HorizontalAlignment = xlLeft
End With
Cancel = True
Application.Run ActiveWorkbook.Name & "!CallSapRrp3"
Case 2
Cells(Target.Row, 2).Select
With Selection
.HorizontalAlignment = xlLeft
End With
Cancel = True
Application.Run ActiveWorkbook.Name & "!CallSapRrp3", product, plant
End Select
End Sub</b>