スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、特定セルの結合範囲を取得します。
アクティヴシートのＡ１セルの結合範囲を判断していますが、マクロ実行前に選択していたセル範囲およびアクティヴセルの状態を回復させています。

Sub Sample()

    Dim myRng As Range, myCell As Range
    
    Set myRng = Selection
    Set myCell = ActiveCell
    
    Application.ScreenUpdating = False
    Range("A1").Select
    MsgBox "セルＡ１の結合範囲は、""" & _
        Selection.Address(False, False) & """です。"
    myRng.Select
    myCell.Activate
    Application.ScreenUpdating = True

End Sub