Hi murtaza,
Try this,
Dim CriteriaString as String
CriteriaString = Activesheet.Name
Then
ActiveSheet.Range("$A$1:$AE$421").AutoFilter Field:=19, Criteria1:= CriteriaString
Let us know if this works...
Hi murtaza,
Try this,
Dim CriteriaString as String
CriteriaString = Activesheet.Name
Then
ActiveSheet.Range("$A$1:$AE$421").AutoFilter Field:=19, Criteria1:= CriteriaString
Let us know if this works...
One test is worth a thousand opinions.
Click the * Add Reputation below to say thanks.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks