【マクロ】アクティブセルの、セルを指定して色を塗りたい

【やりたい事】
以下のコードをご覧ください

アクティブセルの右に３列分を、５２番の色に塗りつぶします
この、右３列分を、アクティブセルが１行目にある時は⇒"a1:c1"
アクティブセルが2行目にある時は⇒"a2:c2"

というように、３セル分に変更をしたいです

ご存じの方、教えて下さい



【コード】
ActiveCell.Resize(1, 3).Interior.ColorIndex = 52

質問者からの補足コメント

• 返答ありがとうございます
  
  質問の趣旨なのですが
  アクティブセルの行の、A1~C1までを色で塗りつぶすです
  例えば、１行目にどこかに、アクティブせるがあれば
  A1~C3が、黒く塗りつぶされる
  
  ２行目のどこかにアクティブせるがあれば
  A2~C2が黒く塗りつぶされるです
  
  宜しくお願いします

  No.1の回答に寄せられた補足コメントです。 補足日時：2024/06/12 15:42

No.2 回答者： ssawatake 回答日時： 2024/06/12 16:10

ウッカリ

If ActiveCell.Row > 0 And ActiveCell.Row < 4 Then
　Range("A" & ActiveCell.Row & ":C" & ActiveCell.Row).Interior.Color = 52

End If

No.1 回答者： ssawatake 回答日時： 2024/06/12 11:24

If ActiveCell.Row > 0 And ActiveCell.Row < 3 Then

　ActiveCell.Resize(ActiveCell.Row, 3).Interior.ColorIndex = 52
End If