I am trying to activate each Sheet in the workbook one time, with the
exception of 3 Sheets? Call them Sheet2, Wk3, and DD4. Do you know how to
do that?

Sub NextSheet()

If ActiveSheet.Index = Sheets.Count Then
Sheets(1).Activate
Else
Sheets(ActiveSheet.Index + 1).Activate
End If

End Sub

Hi,

Try this

Sub NextSheet()
For x = 1 To Worksheets.Count
S = "Sheet2,Wk3,DD4"
V = Split(S, ",")
If Not IsError(Application.Match((Sheets(x).Name), V, 0)) Then
Sheets(x).Activate
'presumably do things
End If
Next

End Sub
Mike

"Jazz" wrote:

> I am trying to activate each Sheet in the workbook one time, with the
> exception of 3 Sheets? Call them Sheet2, Wk3, and DD4. Do you know how to
> do that?
>
> Sub NextSheet()
>
> If ActiveSheet.Index = Sheets.Count Then
> Sheets(1).Activate
> Else
> Sheets(ActiveSheet.Index + 1).Activate
> End If
>
> End Sub
>