小マクロ Ctrl+クリックで複数セル選択中に失敗したとき一個戻すマクロ

question:1159247189

Excelで、Ctrlキーを押しながら複数の箇所を選択すると離れた範囲でも選択できますが、
間違えたセルを選択してしまった場合にはキャンセルができません。
（Ctrlを押しながら、再び選択すれば何とかなると思っていたのですが、
...以下略

への回答例

Sub UnSelectLastArea()
    On Error GoTo EXIT_
    Dim Result As Range
    Dim Last As Range
    Set Last = Selection.Areas(1)
    Set Result = Last
    Dim i As Long
    For i = 2 To Selection.Areas.Count - 1
        Set Last = Selection.Areas(i)
        Set Result = Union(Result, Last)
    Next
    Result.Select
    Last.Activate
EXIT_:
End Sub