The following code will make the sheet 'invisible' to ordinary users:

Sub hideit()
Sheets("Sheet2").Visible = xlVeryHidden
End Sub

To unhide it use

Sub unhideit()
Sheets("Sheet2").Visible = True
End Sub


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200507/1