Hi,
I intend to use advanced filter for more than 20 times across the whole project, so I am trying to create a reusable advanced filter sub procedure as given below but getting errors.
Code
Sub RunAdvFilter()
Call AdvFilter(Sheet1, Sheet1.Range("A1"), Sheet1, Range("H1"), Sheet2.Range("A1"))
End Sub
Sub AdvFilter(DataSheet As Worksheet, StartCell As Range, CriteriaRange As Range, DestinationRange As Range)
DataSheet.StartCell.CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=CriteriaSheet.CriteriaRange.CurrentRegion, _
CopyToRange:=DestinationRange _
, Unique:=False
End SubI would highly appreciate any help.
Regards
Shawn
