applying changes to multiple selected worksheets

[bimmerman]

All,

I have code which currently selects all but the 1st of my worksheets and now I'd like to make all selected worksheets = very hidden but can't figure out the last piece of syntax.

A little help will be most appreciated!

Dim ws As Worksheet
 Application.ScreenUpdating = False
  Sheets(2).Select
 For Each ws In ActiveWorkbook.Sheets
  If ws.Index <> 1 Then ws.Select False
 Next ws
 Application.ScreenUpdating = True
 
 'ActiveWorkbook.Sheets.Visible = xlVeryHidden
 'ActiveWorkbook.Sheets.Select = xlVeryHidden
 'ActiveWindow.SelectedSheets = xlVeryHidden

[VBA Noob]

Maybe

Sub Macro7()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Sheets
If ws.Index <> 1 Then ws.Visible = xlVeryHidden
Next ws
Application.ScreenUpdating = True
End Sub

VBA Noob

[bimmerman]

Thanks!

I see you changed/added quite a bit from what I had originally but I just changed:

If ws.Index <> 1 Then ws.Select False

to

If ws.Index <> 1 Then ws.Visible = xlVeryHidden

and kept everything else the same and it works perfectly.

Except now I don't understand why it's not selecting the 1st tab, oh well as long as it works I suppose.

[VBA Noob]

Change

Sheets(2).Select

to

Sheets(1).Select

VBA Noob

[bimmerman]

Funny... I get the same result using 1 or 2 but get an error using anything else