Going sheet 2 sheet of workbook; but skipping one sheet.

[countryfan_nt]

Hello friends, hope all is well!

The code here hops from 1 sheet to the other, and when it reaches the last sheet, it goes back to the first sheet.

Can you please help me with the code. I want the code skipping going to: Sheets3.

Thank you so much in advance!

Sub MoveNext()
 On Error Resume Next
 
 If Not ActiveWorkbook Is ThisWorkbook Then Exit Sub

 Sheets(ActiveSheet.Index + 1).Activate
 
 Range("a1").Select
 
 If Err.Number <> 0 Then Sheets(1).Activate
 
 Range("a1").Select
 End Sub

Sub MyMacro()

Call MoveNext
Application.OnTime Now + TimeValue("00:00:03"), "mymacro"
End Sub

 

[Fluff]

How about

Sub MoveNext()
   Dim x As Long
   On Error Resume Next
   
   If Not ActiveWorkbook Is ThisWorkbook Then Exit Sub
   x = ActiveSheet.Index
   Sheets(IIf(x = 2, 4, x + 1)).Activate
   
   Range("a1").Select
   
   If Err.Number <> 0 Then Sheets(1).Activate
   
   Range("a1").Select
 End Sub