Sub HideAll()
Dim wsX As Worksheet
With Worksheets
For Each wsX In Worksheets
If wsX.Name < "Sheet1" Then wsX.Visible = xlSheetHidden
Next
End With
End Sub


--

Regards,
Nigel




"Sri Harsha" wrote in message
...
I want to record a macro which hides all the open sheets other than sheet
1.
Can some one tell me how to do that?