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