Macro to hide multiple sheets

[floridagunner]

Hello,

I wrote a macro to select multiple sheets by name and hide them, but I keep getting the following error message:

"Object variable or with block variable not set".

Below is the macro:

Sub HideSheets1A()

Dim ws As Worksheet
Application.DisplayAlerts = False

If ws.Name = "Variance Evaluation" Or "Investment" Or "Costs & Incentives" Or "Revenues Total" Then ws.Visible = False

End Sub

I use Excel 2003

Can anyone point out where I'm going wrong?

 

[bradgar]

Try:

sheet1.display = xlsheetveryhidden 'repeat for all sheets

sheet1.display = true 'make sheet appear again

that should do it as long as you do it for all the sheets

 

[bradgar]

sorry i messed that up

sheet1.visible = xlsheetveryhidden
sheet1.visible = true

 

[Asala42]

This version works (on hiding)

Sub HideSheets1A()

Dim ws As Worksheet
Application.DisplayAlerts = False

For Each ws In Sheets
If ws.Name = "Variance Evaluation" Or ws.Name = "Investment" Or ws.Name = "Costs & Incentives" Or ws.Name = "Revenues Total" Then ws.Visible = False

Next ws

End Sub

 

[floridagunner]

Thank You Asala42, your code worked perfectly.

Bradgar, I'm sorry but I'm not sure what your code is doing but thanks anyway.

 

[Asala42]