I assume you know how to create buttons. So, make 3 buttons and assign these macros. Hope it's what you want.
Run Calibrate:
Sub RunCalibrate()
Dim ws As Worksheet
For Each ws In Sheets
If Len(ws.Name) = 2 And ws.Name <> "WP" And ws.Name <> "NS" Then
ws.Activate 'use this if your macro requires the worksheets to be the active sheet to work
Call Calibrate
End If
Next
Sheets("Contents").Activate
End Sub
Run CogCalibrate:
Sub RunCogCalibrate()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name = "WP" Or ws.Name = "NS" Then
ws.Activate 'use this if your macro requires the worksheets to be the active sheet to work
Call CogCalibrate
End If
Next
Sheets("Contents").Activate
End Sub
Run BIGCalibrate:
Sub RunBIGCalibrate()
Sheets("BIG").Activate 'use this if your macro requires the worksheet to be the active sheet to work
Call BIGCalibrate
Sheets("Contents").Activate
End Sub
Edit: Just noticed you mentioned the 28 worksheets are 'beginning from SN to GD'. You might have to show all those worksheet names, I don't know how they look like. I am only assuming they are all 2 characters long.
Bookmarks