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: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

[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: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

[MageeStringer]

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

requires double quotes