Hopefully this is simple and I just can't find my answer.
Dim FoundCell4 As Range
Application.ScreenUpdating = False
Set FoundCell4 = Range("AS:AS").Find(what:=.Value">0") <----Need to make this work.
Do Until FoundCell4 Is Nothing
FoundCell4.EntireRow.Delete
Set FoundCell4 = Range("AS:AS").FindNext
Loop
Sorry for the n00bness.
Dim FoundCell4 As Range
Application.ScreenUpdating = False
Set FoundCell4 = Range("AS:AS").Find(what:=.Value">0") <----Need to make this work.
Do Until FoundCell4 Is Nothing
FoundCell4.EntireRow.Delete
Set FoundCell4 = Range("AS:AS").FindNext
Loop
Sorry for the n00bness.