Hi, this code makes sense to me but it makes VB angry.
Code
Dim ws As Worksheet
Dim lastrow As Long
Dim c As Long
Set ws = ThisWorkbook.Sheets("OpenPO")
lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row
For c = lastrow To 3 Step -1
If left(Range("B" & c).Value, 3) = "945" Then
ws.Rows(c & ":" & c).Delete shift:=xlUp
End If
Next
End sub
Display More
I get a compile error, highlighting the word "left", saying, "wrong number of arguments or invalid property assignment".
I've used this code before but this is the first time I'm using it with the left function.
Thank You!