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:D" & LastRow).Formula = _
"=IF(OR(A3=""CAR"",A3=""BUS"",A3=""TRAIN""),""X"", """")"
End With
End Sub

HTH
--
AP

"FIRSTROUNDKO via OfficeKB.com" <u15639@uwe a écrit dans le message de
news:5e9ce4d01a841@uwe...
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:D" & LastRow).Formula =
"=IF(OR(A3="CAR",A3="BUS",A3="TRAIN"),"X",
"")"
End With
End Sub

Thanks

Darren

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...tions/200604/1