I have come up with some code on my own, but it compares all of the sheets in the workbook and I only want 3. I tried excluding the ones I don't want with this
Sub SetUp()
For Each ws _
In ActiveWorkbook.Sheets
Select Case ws.Name
Case Is = "Safe Bets", "PP1", "PP2", "FA Racing", "FA Racing 2", "FA Racing 3", "Debut Destroyer"
'Do Nothing
Case Else
ws.Tab.Color = xlNone
If ws.FilterMode = True Then
ws.ShowAllData
End If
If ws.AutoFilterMode = True Then
ws.AutoFilterMode = False
End If
If ws.Name = "Criteria" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
End Select
Next ws
Worksheets.Add.Name = "Criteria"
Worksheets("Confirmed Lays").Range("1:1").Copy Worksheets("Criteria").Range("1:1")
End Sub
yet it still compares all sheets
Any thoughts?