Good Afternoon Folks,
I need help with the attached macro please. I need it to run on the specified sheet (POS IMPORT). Right now it is running on whichever sheet
is open in the workbook. I have messed with it for 2 hours but not able to get it correct.
Any help would be appreciated!
Thank you!!
I need help with the attached macro please. I need it to run on the specified sheet (POS IMPORT). Right now it is running on whichever sheet
is open in the workbook. I have messed with it for 2 hours but not able to get it correct.
Any help would be appreciated!
Thank you!!
Code:
Sub DeletePLURows() Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Application.ScreenUpdating = True
Range("A1:A" & LastRow).AutoFilter Field:=1, Criteria1:="<>0064914800*"
Range("A2:A" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Range("A1").AutoFilter
Application.ScreenUpdating = True
End Sub