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