One way:

Public Sub ColorCurrentRow
ActiveCell.EntireRow.Interior.Colorindex = 3
End Sub

In article ,
sfh wrote:

How can I create a macro that applies a specified color to the current row
rather than a defined row?