actions on all workbook sheets except except some sheets

[bojzon]

Workbook has 23 sheets (named A,B,C,..,O,P,S1,S21,S33)
Sheets(Array("A", "B", "C",....).Select
perform actions (like hiding columns, formating printing,freeze,..)on active sheet, not all selected.

I want to do "actions" on each of 23 sheets in workbook(from A to O) except sheets S1,S21,S33

 

[SQLBI]

bojzon,

The following will loop through your sheets and execute the desired code;

Sheets("A&quot.Select

Do Until ActiveSheet.Name = "S1"


Your code here.


ActiveSheet.Next.Select

Loop

hope this helps.

Leigh Moore
LJM Analysis Ltd

http://www.ljm-analysis.co.uk

 

[TonyJollans]

Hi bojzon,

I'm not sure what number base you are using to have 23 sheets named as you have posted, but Leigh is right that there is no special trick - you just have to loop through the sheets and decide whether to do something or not based on whatever criteria you have.

Leigh's code, however, assumes an order to your Sheets which may not be true. You should amend it to check each sheet (I don't know your exact criteria) ...

For Each Sheet in Sheets
    If not Sheet.name like "S*" then

' Do your stuff

    End If
Next

Enjoy,
Tony

 

[TLady]

For i = 1 To ExcelWK.Sheets.Count
xSheet = ExcelWK.Sheets(i).Name
If xSheet <> S1 and xSheet <> S21 and xSheet <> S33 Then

you can do from here anything you want and when loop will meet unwanted criteria - it'll skip to the

NEXT

Have fun !!!