I would like to make the entire row background color yellow when checked.





Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
With Target
If .Value = "a" Then
.Value = ""
Else
.Value = "a"
.Font.Name = "Marlett"
&! nbsp; End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub