I suspect it may be quicker but whether or not it's worth it is a different matter.
As part of the filter you can automatically have it copy to a new sheet automatically
Range("A1:B15").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _ ("A24:A25"), CopyToRange:=Range("Sheet3!A1"), Unique:=False
I guess you can have the macro create the new sheets, rename them and then as you loop through copy to a new sheet each time.
@aggi started
London Fixed Gear and Single-Speed is a community of predominantly fixed gear and single-speed cyclists in and around London, UK.
This site is supported almost exclusively by donations. Please consider donating a small amount regularly.
I suspect it may be quicker but whether or not it's worth it is a different matter.
As part of the filter you can automatically have it copy to a new sheet automatically
I guess you can have the macro create the new sheets, rename them and then as you loop through copy to a new sheet each time.