listi.net

Ctrl+Shift+Y - Yellow Highlight a Row

Here's a macro on how to highlight a row with the color yellow

Sub YellowRow()



' YellowRow Macro

'

' Keyboard Shortcut: Ctrl+Shift+Y

'

    Rows(ActiveCell.Row).Select

    If Selection.Interior.Pattern = xlNone Then

        With Selection.Interior

            .Pattern = xlSolid

            .PatternColorIndex = xlAutomatic

            .Color = 65535

            .TintAndShade = 0

            .PatternTintAndShade = 0

        End With

        

    Else

        With Selection.Interior

            .Pattern = xlNone

            .TintAndShade = 0

            .PatternTintAndShade = 0

        End With

    End If

    

End Sub