invisible window

[lior03]

hello
i built this code in order to hide or show the current window.
[VBA]
Sub togglewindownow()
If ActiveWindow.Visible = False Then
ActiveWindow.Visible = True
Else
ActiveWindow.Visible = False
End If
End Sub

[/VBA]
as a result i lost all my sheets.how can i regain them?
thanks

[XLGibbs]

You mean all your worksheets are now visible = FALSE?

Sub oops()
For each worksheet in ThisWorkbook.Worksheets
worksheet.visible = true
Next worksheet
End sub

might get them visible again.

[Andy Pope]

This in the immediate window will make the workbooks visible again.

[vba]
for each win in application.windows:win.Visible = true:next win
[/vba]