L
Legacy 264643
Guest
Just curious,
What would I have to do to make the following code I recorded for using an auto filter Dynamic?
What would I have to do to make the following code I recorded for using an auto filter Dynamic?
Code:
ActiveSheet.Range("$A$2:$G$1138").AutoFilter Field:=5, Criteria1:="Yes"
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort. _
SortFields.Add Key:=Range("C2:C1138"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter. _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With