srinivasan, this should do it,

Sub UnHide_All()
'unhide all sheets in a workbook
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.Visible = xlSheetVisible
Next
End Sub




--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"srinivasan" wrote in message
...
Dear friends,
I am having a workbook with about 75 worksheets each named differently.
For
my convenience I hide many worksheets. Can I unhide all the hidden
worksheets
in one stroke with a macro or otherway?