Запомнить значения из выделенного диапазона в переменную

Dim vData As Variant
vData = Selection.Value

Debug.Print vData(1,1)

dim myRange as range
set myRange=selection

Dim myRange() As Variant
myRange = Selection.Value
MsgBox (myRange(1, 1))

Sub bb()
Dim myRange(), x ' As Variant
x = Selection.Value
If IsArray(x) Then
    myRange = x
    Erase x 'необязательно
Else
    ReDim myRange(1 To 1, 1 To 1)
    myRange(1, 1) = x
End If
MsgBox myRange(1, 1)
End Sub

Dim myRange As Range
Dim i As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set myRange = Selection
End Sub
 
Sub Worksheet_Change(ByVal Target As Range)
For Each i In myRange '
MsgBox (i)
Next '
End Sub

Dim a()
If Selection.Count = 1 Then
  ReDim a(1 To 1, 1 To 1)
  a(1, 1) = Selection.Value
Else
  a = Selection.Value
End If

Dim a()
If Selection.Count = 1 Then a = array(Selection.Value) Else a = Selection.Value