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