flowergirl
08-28-2011, 10:12 PM
I have the following code running into 'Syntax error'. Can you please let me know why?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim xDesignation As String
Dim xFunction As String
xDesignation = Worksheets("PMS").Range("E5").Value
xFunction = Worksheets("PMS").Range("M4").Value
If xDesignation = 'Addl. Chief Engr' and xFunction = 'Engineering' Then
Select Case Target.Address
Case "$A$57"
MsgBox "Engineering Addl. Chief Engineer descriptor1"
Case "$A$60"
MsgBox "Engineering Addl. Chief Engineer descriptor2"
Case "$A$63"
MsgBox "Engineering Addl. Chief Engineer descriptor3"
Case "$A$66"
MsgBox "Engineering Addl. Chief Engineer descriptor4"
Case "$K$57"
MsgBox "Engineering Addl. Chief Engineer descriptor5"
Case "$K$60"
MsgBox "Engineering Addl. Chief Engineer descriptor6"
Case "$K$63"
MsgBox "Engineering Addl. Chief Engineer descriptor7"
Case "$K$66"
MsgBox "Engineering Addl. Chief Engineer descriptor8"
End Select
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim xDesignation As String
Dim xFunction As String
xDesignation = Worksheets("PMS").Range("E5").Value
xFunction = Worksheets("PMS").Range("M4").Value
If xDesignation = 'Addl. Chief Engr' and xFunction = 'Engineering' Then
Select Case Target.Address
Case "$A$57"
MsgBox "Engineering Addl. Chief Engineer descriptor1"
Case "$A$60"
MsgBox "Engineering Addl. Chief Engineer descriptor2"
Case "$A$63"
MsgBox "Engineering Addl. Chief Engineer descriptor3"
Case "$A$66"
MsgBox "Engineering Addl. Chief Engineer descriptor4"
Case "$K$57"
MsgBox "Engineering Addl. Chief Engineer descriptor5"
Case "$K$60"
MsgBox "Engineering Addl. Chief Engineer descriptor6"
Case "$K$63"
MsgBox "Engineering Addl. Chief Engineer descriptor7"
Case "$K$66"
MsgBox "Engineering Addl. Chief Engineer descriptor8"
End Select
End If
End Sub