VBA Code - Error on Code - Where am I going wrong?

[tlc53]

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!

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

 

[JoeMo]

I don't see anything wrong and cannot reproduce your error.

 

[StephenCrump]

Maybe Target contains more than one cell? You only need to test Range("F8").Value, not Target.Value

Or maybe Target contains an error value?

 

[tlc53]

You only need to test Range("F8").Value, not Target.Value

Thank you Stephen. This was causing me a lot of grief but this comment fixed the error. Thank you!