PDA

View Full Version : Solved: Syntax error: please help



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

GTO
08-28-2011, 10:33 PM
Try double-quotes around the strings.

If xDesignation = "Addl. Chief Engr" And xFunction = "Engineering" Then

flowergirl
08-28-2011, 11:15 PM
Thanks everyone. The matter has been resolved.