View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default 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