Hi Sixthsense,
Thank you for a very quick response and your suggestion.
I copied & pasted the code and ran it, It probably did do what I asked for, but, unfortunately it didn’t do what I wanted.
The code inserted the row in the correct place but then highlighted the row below the inserted row.
I played round with the code after you enlightened me and came up with the code below that I now have working.
With Workbooks("KeithSilver Dawn Income.xlsm").Sheets(Sheet_No)
rw = rw + 1
With .Rows(rw)
.Insert
End With
With .Rows(rw)
.EntireRow.Interior.ColorIndex = 27
End With
End With
Thank you for you input.
Keith
Bookmarks