I would like to extract range information from a user selected range by mouse, after making the selection, and releasing the left mouse button (or a double click after the selection has been made.
I can accomplish this with the Selectionchange event, however it's slowing down my entire worksheet. So the solution I am looking for does not rely upon the Selectionchange event.
In other words, some way of activating the following code, after the mouse selection has been made when releasing the left mouse button, or by double click.
Public Sub SelectionTest()
Dim r As Range
Dim s As String
Select Case Selection.Areas.Count
MsgBox "Nothing selected."
MsgBox "Selected range: " & Selection.Areas(1).Address(False, False)
s = ""
For Each r In Selection.Areas
s = s + vbNewLine + r.Address(False, False)
MsgBox "Selected several areas:" & s