Hi GregR
Set rng = ws1.Range("A1").CurrentRegion '<<< Change
Change this to
Set rng = ws1.Range("A4").CurrentRegion '<<< Change
--
Regards Ron de Bruin
http://www.rondebruin.nl
"GregR" wrote in message oups.com...
Ron, I am using your macro and get an error message on the line:
rng.Columns(29).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=.Range("IV1"), Unique:=True
Columns(29) or "AC" is the last column in my currentregion and the
header row is "AC4". What do I change to make this work? TIA
Greg