Greetings,
I know I must be doing something wrong, but I cannot figure it out. I am trying to use the following within a Userform and it is not working.
tbPath = ToggleButton Name
Private Sub tb_Address_Click_Click()
Dim tbPath As Variant
tbPath = "tb_Address"
   If tbPath.Value = True Then
    tbPath.Caption = "The Column - Shown"
    tbPath.BackColor = &HC000&
    Sheet8.Range("CZ12").Value = 0
    Else
    tbPath.Caption = "The Column - Hidden"
    tbPath.BackColor = &H80FF&
    Sheet8.Range("CZ12").Value = 1
    End If
End Sub