loop through alternate worksheets in the workbook

[irfanparbatani]

Hello

If someone could help me with the following criteria:

I have many worksheets(about 22), I want to loop and select every 1st, 3rd,5th,7th....... and so on till the end. can i get the code of how to go abt it,

the below code just goes through each worksheets


For Each ws In ActiveWorkbook.Worksheets
;;;;
Next ws

[HaHoBe]

Hi, irfanparbatani,

maybe use the index of the worksheets if there´s no other criteria

Dim lngCounter As Long
For lngCounter = 1 To ActiveWorkbook.Worksheets.Count Step 2
  With Worksheets(lngCounter)
    'your code
  End With
Next lngCounter

Ciao,
Holger

[irfanparbatani]

gives error argument not option before executing step 2.

---------- Post added at 04:25 PM ---------- Previous post was at 04:22 PM ----------

Thanks arlu, for you help bro.

[arlu1201]

Try this

Dim i As Long

For i = 1 To Worksheets.Count Step 2
    'Your code here
Next i

[irfanparbatani]

Try this

Dim i As Long

For i = 1 To Worksheets.Count Step 2
    'Your code here
Next i

Can we stop looping the macro with the name sheet , cuz I do not want to continue beyond that point.