Hi

Try

Sub RecShtUnHide()
Dim wkSht As Worksheet
For Each wkSht In ActiveWorkbook.Worksheets
wkSht.Visible = True
Next
End Sub

Note that a hidden sheet can not be active or selected, so that may be the
problem with your code.

You could also open the VB editor (Alt F11 or similar). Select a sheet in
the project explorer and manipulate its Visible property in the Properties
window. (Both found in the View menu if not present already).

HTH. Best wishes Harald


"davegb" skrev i melding
ups.com...
Well, now I've done it! I was experimenting writing a macro to hide
some of the sheets in a workbook, and exclude others. It did just the
opposite of what I wanted - hid the ones I didn't want hidden. I
modified it to hide the others, knowing it would leave at least one
unhidden, which it did. But when I tried to modify the macro to unhide
some or all of the sheets, it hangs up.


Sub RecShtUnHide()
Dim wkSht As Worksheet
For Each wkSht In ActiveWorkbook.Worksheets
If Right(wkSht.Name, 7) = "Records" Then
ActiveWindow.SelectedSheets.Visible = True<--Error
End If
Next
End Sub

At the marked line of code, I get "Method visible of object sheets
failed" message. I can restore the sheets by writing a macro that
specifically spells out each sheet name, but since there are over 20
sheets, this would be time consuming.
I also have a backup from early today, but if I use that, I lose all
the work I've done, both on the macros and the worksheets themselves,
since early today.
Does anyone know if it's possible to restore the worksheets without
having to do them individually?
Thanks for the help.