Solved: Syntax error: please help

[flowergirl]

I have the following code running into 'Syntax error'. Can you please let me know why?

[vba]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[/vba]

[GTO]

Try double-quotes around the strings.

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

[flowergirl]

Thanks everyone. The matter has been resolved.