Selectable Button/Icon for "Yes" and "No" Responses (VBA)

[Disarmonious]

Before I begin, I am a VBA beginner. I ask for your patience. Thank you, in advance!

I created an icon and assigned a macro that when selected, the word, "Yes" appears on cell B2.

Now, I'm looking for the word "No" to appear in the same cell, B2 when this icon is selected again. So, essentially, this icon would act as a "switch" by telling cell B2 to return the words "Yes" and "No" when the user selects it.

Here's my VBA code:

Sub Image1_Click()

ActiveSheet.Range("B2").Value = "Yes"

End Sub

 

[dmt32]

Hi
try

Sub Image1_Click()
    With ActiveSheet.Range("B2")
        .Value = IIf(.Value = "Yes", "No", "Yes")
    End With
End Sub

Dave

 

[Disarmonious]

Hi
try

Sub Image1_Click()
    With ActiveSheet.Range("B2")
        .Value = IIf(.Value = "Yes", "No", "Yes")
    End With
End Sub

Dave

dmt32

I'm sorry I didn't respond sooner as I've been out on an emergency but thank you very much for your help! Have a good day!

 

[dmt32]

I'm sorry I didn't respond sooner as I've been out on an emergency but thank you very much for your help! Have a good day!

No worry appreciate your feedback

Dave