test

[Merhum İdris SERDAR]

Private Sub ToggleButton1_Click()
     
   [COLOR="Red"] If ToggleButton1.Value = True Then
        For s = 2 To Sheets.Count
        Sheets(s).Visible = 2
ToggleButton1.Caption = "GÖSTER"[/COLOR]     

[COLOR="SeaGreen"]Next[/COLOR]

   [COLOR="Blue"] Else
      For s = 2 To Sheets.Count
      Sheets(s).Visible = 1
ToggleButton1.Caption = "GİZLE"[/COLOR]

[COLOR="seagreen"]Next[/COLOR] 

   End If
  
End Sub

.