Thread
:
Insert Row colors the complete Row
View Single Post
#
5
Posted to microsoft.public.excel.misc
Don Guillett
external usenet poster
Posts: 10,124
Insert Row colors the complete Row
Try this to insert
Sub insertrownocolor()
Rows(ActiveCell.row).Insert
Rows(ActiveCell.row).Interior.ColorIndex = 0
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"robert morris" wrote in message
...
I use the following code to highlight the last entry in a row.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F4:Y75")) Is Nothing Then
Range("F" & Target.Row & ":Y" & Target.Row).Cells. _
Interior.ColorIndex = xlColorIndexNone
Target.Cells.Interior.Color = vbYellow
End If
End Sub
Problem is, when a Row is inserted, the complete row is Yellow. I have no
Conditional Formating in use.
All I can figure is, it must be in the code.
Bob
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett