EXCEL VBA BeforeDoubleClickのダブルクリックした位置整理

'EXCEL VBA Target位置を予め特定しておく
'
'使うデータ
'    lngTargetRow As Long     シートをダブルクリックした行番号
'    intTargetCol As Integer　シートをダブルクリックした列番号
'    strTarget    As String　 シートをダブルクリックしたセルの文字列
'    Dim shtActive As Worksheet 起動したときのアクティブシート保存用
' version　2022/8/14-2
' URL https://pgbigoroku.hatenablog.com/entry/2022/07/28/113748
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim lngTargetRow As Long
    Dim intTargetCol As Integer
    Dim strTarget As String
    Dim shtActive As Worksheet
    lngTargetRow = Target.Rows.Row
    intTargetCol = Target.Columns.Column
    strTarget = Cells(lngTargetRow, intTargetCol).Value
    Set shtActive = ActiveSheet

    'ここから本文
        'ここからよく使う文章
        Select Case intTargetCol
            Case 1:
        End Select
        'アクティブブックに移動するとき
        '   shtActive.Previous.Activate
        
        'ここまでよく使う文章
    'ここまで本文
End Sub