Attribute VB_Name = "Foglio40"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Control = "ToggleButton1, 26, 0, MSForms, ToggleButton"
Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "AD:AY"


Select Case ToggleButton1.Value
    Case True
        ToggleButton1.Caption = "Hide RunPlan B"
    Case False
        ToggleButton1.Caption = "Show RunPlan B"
End Select

If ToggleButton1.Value Then
    Application.ActiveSheet.Columns(xAddress).Hidden = False
Else
    Application.ActiveSheet.Columns(xAddress).Hidden = True
End If
End Sub

Private Sub Show_Click()

End Sub