Rangeから選択されているセルのアドレス・行・列番号 を調べる

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    StartRow = Target.Cells(1).Row
    StartColumn = Target.Cells(1).Column
    
    Max_Row = Target.Cells(Target.Count).Row
    Max_Column = Target.Cells(Target.Count).Column


End Sub

ネタ元

• http://www.k1simplify.com/vba/tipsleaf/leaf240.html