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
Bookmarks