Hi;
You may try this if it helps;
Option Base 1
Sub CheckWB()
Dim CheckShName(3) As String, i As Integer, j As Integer
CheckShName(1) = "menu"
CheckShName(2) = "data"
CheckShName(3) = "mail"
For j = 1 To 3
For i = 1 To Worksheets.Count
If Sheets(i).Name <> CheckShName(j) Then
YourMacro
Exit Sub
End If
Next
Next
End Sub