Static Array - Subscript out of range - using Selection

[Instigator81]

I am trying to create a simple static array that is the size of my Selection. I selected 4 cells when I ran the code below and it throws the error, "subscript out of range" on "SelectedRange(i, 1) = 1", when i = 1. I'm sure I'm making a simple mistake, any ideas?


Dim SelectedRange() As Variant

ReDim SelectedRanged(1 To Selection.Cells.Count, 1 To 3) As Variant

Dim i As Integer


For Each c In Selection.Cells

i = i + 1

SelectedRange(i, 1) = 1

SelectedRange(i, 2) = 2

SelectedRange(i, 3) = "awesome"

Next c

 

[Instigator81]

sorry I see my error. I had an extra D on the array variable.