Flytte til næste ark

Jeg ved ikke om det er dette du mener,
den skriver X i celle a1 sheet 1 og derefter  i celle C3 på sheet 2
derefter  i celle E5 på sheet3.

NB, den følger den fysiske rækkefølge på arkene,( som du ser dem)

Public Sub test()
i = 1
For Each sh In Worksheets
Worksheets(sh.Name).Cells(i, i) = "X"
i = i + 2
Next
End Sub

Det er næsten rigtigt jeg har bare ikke udtrykt mig klar.
Jeg har brug for at ligge noget kode ind imellem skiftet fra et ark til et andet, x'et var blot et eksempel.
Eksempel: vælg sheet 1, celle a1:B2 sæt cellefarve til rød.
Skift til sheet 2 farv celle C3:D4 osv.
Håber det er til at forstå.

sådan

Public Sub test()
i = 1
For Each sh In Worksheets
Worksheets(sh.Name).Activate
Range(Cells(i, i), Cells(i + 1, i + 1)).Interior.ColorIndex = 3
i = i + 2
Next
End Sub

Super Kabbak, den løsning havde jeg ihvertfald ikke selv regnet ud mange tak for hjæpen.

Super Kabbak, den løsning havde jeg ihvertfald ikke selv regnet ud mange tak for hjæpen.

Nu fik jeg jo givet point til mig selv, hvad gør jeg så?

Du skulle ikke have afvist mit første svar, nu kan du oprette et nyt spørgsmål, hvor titlen er Point til kabbak og så henvis med link til dette spørgsmål.
så vil jeg svare der.