Ok, I've just tried running this for the first time, I see this line as red.
.Range(StartColumn & "6:" & StartColumn & .Range(StartColumn& "6").End(xlDown).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
The Compiler error is:
Expected: list separator or )
this is the entire script.
Option Explicit
Sub UpdateList()
Dim StartColumn As String
Dim SearchColumn As String
Dim SearchCriteria As String
StartColumn = "A"
SearchColumn = "E"
SearchCriteria = "" 'e.g ">0", "=Test*", etc.
With Sheets("BackOrder")
.Columns(SearchColumn).AutoFilter Field:=1, Criteria1:=SearchCriteria
.Range(StartColumn & "6:" & StartColumn & .Range(StartColumn& "6").End(xlDown).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Columns(SearchColumn).AutoFilter
End With
End Sub
The Search Criteria is meant to be empty.
Bookmarks