Hide Sheet

[MUKESHY12390]

hi frnds

Sub UnhideAllSheets()
'Unhide all sheets in workbook.
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If LCase(Trim(ws.Name)) <> "sheet3" Then                           'how can i choose two sheet instead for one ("sheet3")
ws.Visible = xlSheetHidden
End If
Next ws
End Sub
[\code]

Above code working fine.....but just I wanted to add two more condition after this like 
If LCase(Trim(ws.Name)) <> "sheet3"  or "sheet4" then
pls help me...............!!



thank you in Advance.!!1

 

[Michael M]

Try

Sub UnhideAllSheets()
'Unhide all sheets in workbook.
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If LCase(Trim(ws.Name)) <> "sheet3" And LCase(Trim(ws.Name)) <> "sheet4" Then 'how can i choose two sheet instead for one ("sheet3")
ws.Visible = xlSheetHidden
End If
Next ws
End Sub

 

[MUKESHY12390]

thank you Michael ...