markering ind i array

eller ikk array men matrix

Sub test()
Application.OnKey "p", "ReadRange"
End Sub

Sub ReadRange()
Dim matrix
matrix = Selection
End Sub

det virker ok men skal fakrisk bruge de formler der står bag værdierne?

Option Explicit
Option Base 1
Sub test()
Application.OnKey "p", "ReadRangeFormula"
End Sub

Sub ReadRangeFormula()
Dim vRNG(), x As Long, y As Long
Dim rg As Range
Set rg = Selection
ReDim vRNG(rg.Rows.Count, rg.Columns.Count)
For x = 1 To rg.Rows.Count
    For y = 1 To rg.Columns.Count
        vRNG(x, y) = rg(x, y).Formula
    Next
Next
End Sub

Tænker da ikke så godt om morgenen. Ovenstående virker fint, men hvorfor gøre det så langt.

Sub ReadRangeFormula()
Dim matrix
matrix = Selection.Formula
End Sub

mange tak for hjælpen..

laver du et svar?

her er så et svar :-)