Dave O,

Thank you for the response.

Dave
=@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))<



"Dave O" wrote:

This will unhide every sheet in your file:

Sub UnHideHiddenSheets()
dim SheetName
For Each SheetName In Sheets
SheetName.Visible = True
Next SheetName
End Sub