With Activeworkbook

.Worksheets("Sheet1").Visible = xlSheetVisible
For Each sh In .Worksheets

If sh.Name < "Sheet1" Then

sh.Visible = xlSheetHidden
End If
Next sh
End With

--
__________________________________
HTH

Bob

"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?