Worksheet Hide / Unhide

[mrowe]

Hi,

Being Friday, by brain has ground to a halt (again).

What I want to do is hide sheet3 if it is visable or do nothing if it is hidden on each workbook close.

I thought of using a flag like if visable then 1 else 0
If 1 then show else hide etc..

Any ideas?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("Sheet3").Select
ActiveWindow.SelectedSheets.Visible = False

End Sub

Thanks
Matt

 

[BBHRVS]

At the end, anyway, you want to hide it ??
So no condition required (if I am not too tired also...)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Thisworkbook.Sheets("Sheet3").visible=false
End Sub

 

[Andrew Poulsom]

I don;t think you need to test its visibility. Your code will already hide it if it's visible and do nothing if it isn't.

If you want to toggle the visibility:

With Sheets("Sheet3")
   .Visible = Not .Visible
End With

 

[mrowe]

this is ok but it's not visable all the time so I need some error trapping to look at it to see if it's visable or not first

 

[mrowe]

Great! this works a treat Thanks

 

[BBHRVS]

Then you have :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set mysh=Thisworkbook.Sheets("Sheet3")
If mysh.visible =true then
mysh.visible=false
'any other action
Else
'any action
End if
End Sub