Code:
Public Sub End_of_day_color_row()
Dim LastRowColA As Integer
Dim worksht As String
LastRowColA = Range("B65536").End(xlUp).row
With Worksheets("Newidea").Range("S16")
.Range(.Cells(LastRowColA, 2), _
.Cells(LastRowColA, 1)).EntireRow.Interior.Color = RGB(255, 140, 0)
End With
End Sub
I wish to color last none used row orange at the end of day. Just need to get this to work correctly. Its picking last row correctly but can get entire row to color?