Sub Macro6()
'
' Macro6 Macro
'
' Keyboard Shortcut: Ctrl+h
'
 

r = Selection.Row


With Rows(r).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub