tlc53
Active Member
- Joined
- Jul 26, 2018
- Messages
- 399
Hi,
Can anyone please tell me what is wrong with my code below? It highlights the 3rd to last row, Me.CommandButton2.Visible = CBool(Target.Value = "YES")
It says Run-time error '13': Type Mismatch
Thank you!
Can anyone please tell me what is wrong with my code below? It highlights the 3rd to last row, Me.CommandButton2.Visible = CBool(Target.Value = "YES")
It says Run-time error '13': Type Mismatch
Thank you!
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("F5")) Is Nothing Then
Me.CommandButton1.Visible = CBool(Target.Value = "YES")
End If
If Not Intersect(Target, Me.Range("F8")) Is Nothing Then
Me.CommandButton2.Visible = CBool(Target.Value = "YES")
End If
End Sub
Last edited: