セルの１行と１列を同時選択して十字の選択状態にする方法

'''
'''目標Sheetに以下のCodeを埋め
'''
Private Sub Worksheet_BeforeDoubleClick _
    (ByVal Target As Range, Cancel As Boolean)
    Call RCSelect(Target)
End Sub


'''
'''共通Moduleに以下のCodeを埋めておく
'''
' 有効範囲を定義
Public Const minCol = 1
Public Const maxCol = 41
Public Const minRow = 4
Public Const maxRow = 5000
' 機能 : アクティブセルの行と列を同時選択する
' 引数 : Target アクティブセルなどのRangeオブジェクト
' 戻値 : なし
Sub RCSelect(Target As Range)
    If Target.CountLarge = 1 Then '単一セル選択時のみイベント発生
        Application.EnableEvents = False
        Dim rng_RC As Range
        Set rng_RC = Union(Range(Cells(Target.Row, minCol), Cells(Target.Row, maxCol)), Range(Cells(minRow, Target.Column), Cells(maxRow, Target.Column)))
        rng_RC.Select
        Target.Activate
        SendKeys "{F2}", True'編集をすぐできるようにしたい場合、この行を使う
        Application.EnableEvents = True
    End If
End Sub

参考先：https://chicktackgo.com/excel-vba-rcselect/