Run macro on odd sheets

[yinkajewole]

How do i run my code only on odd sheets?

 

[Joe4]

Here is one way:

Dim i as Long

For i = 1 to Sheets.Count Step 2
     Sheets(i).Activate
     Call [I]MacroToRun[/I]
Next i

where MacroToRun is the name of the macro you are calling.

 

[yinkajewole]

here is one way:

dim i as long

for i = 1 to sheets.count step 2
     sheets(i).activate
     call macrotorun
next i

where macrotorun is the name of the macro you are calling.

thanks

 

[Joe4]

You are welcome.