sayfaları gizlemek

[k0081]

Merhaba arkadaşlar;

Private Sub MENU1_Click()
Sheets("ANAMENU").Visible = True
Sheets("betonarme").Visible = False
End Sub

anamenu haric diğer tüm sayfaları gizleyebilirmiyim ? yukarıdaki örnekteki gibi isim yazmadan... (betonarme)

yardımcı arkadaşa şimdiden teşekkürler..

 

[Orion1]

Buyurun.

Sub gizle_59()
Dim sh As Worksheet
Sheets("ANAMENU").Visible = True
For Each sh In Worksheets
    If sh.Name <> "ANAMENU" Then
        sh.Visible = False
    End If
Next
End Sub

 

[k0081]

Buyurun.

Sub gizle_59()
Dim sh As Worksheet
Sheets("ANAMENU").Visible = True
For Each sh In Worksheets
    If sh.Name <> "ANAMENU" Then
        sh.Visible = False
    End If
Next
End Sub

hocam çok teşekkürler.. tamamdır..