To 'omit' like you wanted, probably like this:
![]()
Sub RunCalibrate() Dim ws As Worksheet For Each ws In Sheets Select Case ws.Name Case "WP", "NS", "BIG", "Contents", "Instructions", "DescriptiveStats", "CalibrationSummary", "Data" Case Else ws.Activate 'use this if your macro requires the worksheets to be the active sheet to work Call Calibrate End Select Next Sheets("Contents").Activate End Sub
Bookmarks