Expected end of Statement

[FIRSTROUNDKO via OfficeKB.com]

Hi,

I am getting the error "Expected end of Statement" for the below code
Please can somebody help me fix this.


Sub insert()

Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
..Range("D3" & LastRow).Formula = "=IF(OR(A3="CAR",A3="BUS",A3="TRAIN"),"X",
"")"
End With
End Sub

Thanks

Darren

 

[Ardus Petus]

You must double the " within double-quotes.

Sub insert()
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("D3" & LastRow).Formula = _
"=IF(OR(A3=""CAR"",A3=""BUS"",A3=""TRAIN""),""X"","""")"
End With
End Sub

HTH

 

[MageeStringer]

"=IF(OR(A3=""CAR"",A3=""BUS"",A3=""TRAIN""),""X"","""")"

requires double quotes