アクティブセルのある行を選択して背景色を変える

タイトル通り。

納品実績表を編集していて、
「この案件は背景色を変えておきたいわ〜」
ていうときに使用します。

ちなみにここではグレーです。
マクロの記録をとってから編集しました。

Option Explicit

Sub 網掛け()
'
' 網掛け Macro
'
' Keyboard Shortcut: Ctrl+l
'
    Dim amikake
    amikake = ActiveCell.Row
    Rows(amikake).Select
    
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
End Sub