Hi all - below is a loop that cycles through 10 "check" columns in a spreadsheet named "Template", selects the "check" item in the filter for each column, and pastes the results to a new spreadsheet for all 10 checks (10 new worksheets). What's driving me crazy is trying to figure out a way to name each new tab based on the column heading of each check. This would be range(CG1:CP1). Is there anyway to add in this range to my code and insert a naming command after "worksheets.add"? Right now it appears as "sheet1", "sheet2", "sheet3", etc. Thanks so much for any help
Application.ScreenUpdating = False
Dim LastCol As Integer
Dim c As Integer
LastCol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
For c = 85 To LastCol
ActiveSheet.Range("A:$CP").AutoFilter Field:=c, Criteria1:="CHECK"
Application.ScreenUpdating = True