Gang, LR returns 0 Value... sure it's an easy fix. What am I doing wrong?
Sub freshList2()With Sheets("sL")
Dim LR As Long
LR = Range("A" & .Rows.Count).End(xlUp).Row
For i = 1 To LR Step -1
If Left(Range("A" & i).Value, 1) <> "1*" Then
.Rows(i).EntireRow.Delete...