Sub unhidesheet()
mysheet = InputBox("Enter sheet NAME")
Sheets(mysheet).Visible = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Chris D" wrote in message
...
hello,

In my worksheet I have a number of hidden sheets.
I need a macro in which I can select 1 of the hidden sheets, and unhide
it.
Can anyone help?

thanks.

chris