Try the following procedures to manipulate with sheets Hidden/ Visible
properties.

Sub Hide_My_Worksheet()
Application.Worksheets("Sheet1").Visible = xlSheetHidden
End Sub

Sub UnHide_My_Worksheet()
Application.Worksheets("Sheet1").Visible = xlSheetVisible
End Sub

Instead of "Sheet1" you can indicate number of the sheet to be hidden.
--
topola, http://vba.blog.onet.pl