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