Highlight rows
Hi Randy
try
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"
.entirerow.interior.colorindex= 6
.Font.Name = "Marlett" &! nbsp;
End If
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub
--
Regards
Frank Kabel
Frankfurt, Germany
"Randy Reese" schrieb im Newsbeitrag
ink.net...
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
|