What I want , If I click on the toggle button must change color to vbgreen and if click it again change color to vbred for the code below, where and f

[Carlosjunior]

Private Sub ToggleButton1_Click()
' hide or show rows 2 to 4 if button is clicked
Sheets("Sheet1").Range("2:4").EntireRow.Hidden = ToggleButton1.Value
End Sub


Private Sub UserForm_Activate()
' toggle button state based on hidden state of rows
ToggleButton1.Value = Sheets("Sheet1").Range("2:4").EntireRow.Hidden
End Sub


------------------------------------------------------------------------------------------------------------------


For the code above for me its working. What I want now is, if i click on the toggle button must change color to vbgreen and if click it again change color to vbred

 

[davesexcel]

Long time, possibly something like this you can work with.

Private Sub ToggleButton1_Click()
With Me.ToggleButton1
If .Value = True Then
.BackColor = vbGreen
.Caption = "On"
MsgBox "code for On"
ElseIf .Value = False Then
.BackColor = vbRed
.Caption = "Off"
MsgBox "code for Off"
End If
End With
End Sub

Private Sub UserForm_Activate()
Me.ToggleButton1 = True
End Sub

 

[Carlosjunior]

Long time, possibly something like this you can work with.

Private Sub ToggleButton1_Click()
With Me.ToggleButton1
If .Value = True Then
.BackColor = vbGreen
.Caption = "On"
MsgBox "code for On"
ElseIf .Value = False Then
.BackColor = vbRed
.Caption = "Off"
MsgBox "code for Off"
End If
End With
End Sub

Private Sub UserForm_Activate()
Me.ToggleButton1 = True
End Sub

Thank u very kindly @davesexcel . Done & Dusted.