Radio Buttons in cells without control toolbox

Instead of using radio buttons from the control toolbox, I have created a radio button type of group within 3 cells the code is as follows:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [C1,E1].ClearContents
If Target.Address = "$C$1" Then [A1,E1].ClearContents
If Target.Address = "$E$1" Then [A1,C1].ClearContents
End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A1, C1, E1 ")) Is Nothing Then

            Target.Font.Name = "Webdings"

                If Target = vbNullString Then

                    Target = "g"

                Else

                    Target = vbNullString

                End If
‘End Code

What this does is puts an “g” in the cell that is clicked on and clears the other two cells. What I want it to do instead is to put a “c” in the cells that are cleared. With the Webdings font this makes the cells with a "g" in them look like a filled checked box and the cells with a "c" in them an unfilled checked box. 

I have tried the following code and it works with an exception. The cell that you want to select has to be selected twice (clicked in once, clicked out of once, then click in again).

‘Begin Code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [C1,E1] = "c"
If Target.Address = "$C$1" Then [A1,E1] = "c"
If Target.Address = "$E$1" Then [A1,C1] = "c"
End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A1, C1, E1 ")) Is Nothing Then

            Target.Font.Name = "Webdings"

                If Target = vbNullString Then

                    Target = "g"

                Else

                    Target = vbNullString

                End If

Any help is greatly appreciated.

Hello tracktor,

Welocme to the Forum!

To make your posts easier to read, copy, and edit please wrap your code. I did it for you this time. Here is how you can do it next time.

How to wrap your Code
1. Select all your code using the mouse.
2. Click on the # icon on the toolbar in the Message window. This will automatically wrap the text you selected with the proper Code tags to create a Code Window in your post.

OR you can also do this Manually by placing the tags
[code] at the start of the first line,
[/code] at the end of the last line.

As a member, You have agreed to follow the forum posting rules. Please take so time to familiarize yourself with the Do's and Don'ts here in the Forum, just click on the link below...

Forum Rules

If I understand your question, try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .Count > 1 Then Exit Sub
        With Range("A1,C1,E1")
            If Intersect(Target.Cells, .Cells) Is Nothing Then Exit Sub
            .Value = "c"
            .Font.Name = "Webdings"
        End With
        .Value = "g"
    End With
End Sub