MsOf03 [RESOLVED] MyArray (NumRows, ##) Error

Hi There VBA Community,

I am having issues with the following code. I am receiving a Compile Error (Expected Array) at MyArray (NumRows, 15) but cant figure out why. I'm sure I'm missing something simple, please help...


Private Sub CmdADMIN_Click()

Dim r As Integer
Dim lastrow As Integer
Dim i As Integer
Dim MyRange As Range
Dim NumRows As Integer
Dim MyArray As String

Application.ScreenUpdating = False

'Select ADMIN Coy
Worksheets("Register").Activate
Range("A5").Activate
lastrow = FindLastRow
i = 1
Set MyRange = Range("A5:A" & lastrow)

NumRows = Application.WorksheetFunction.CountIf(MyRange, "ADMIN")

ReDim MyArray(NumRows, 15)

'Collect Data for transfer from Register
Do While ActiveCell.Row < lastrow + 1
If ActiveCell.Value = "ADMIN" Then
r = ActiveCell.Row

MyArray(i, 1) = Range("B" & r) 'Platoon
MyArray(i, 2) = Range("C" & r) 'ARN
MyArray(i, 3) = Range("D" & r) 'Equipment
MyArray(i, 4) = Range("E" & r) 'Variant
MyArray(i, 5) = Range("F" & r) 'Class
MyArray(i, 6) = Range("G" & r) 'NSN
MyArray(i, 7) = Range("H" & r) 'SCA
MyArray(i, 8) = Range("K" & r) 'Next NTI
MyArray(i, 9) = Range("M" & r) 'Next Service
MyArray(i, 10) = Range("P" & r) 'Next SCI/TI
MyArray(i, 11) = Range("Q" & r) 'LOC
MyArray(i, 12) = Range("R" & r) 'EMEFIX #
MyArray(i, 13) = Range("S" & r) 'EMEFIX Review Date
MyArray(i, 14) = Range("T" & r) 'Remarks
MyArray(i, 15) = Range("U" & r) 'Last Updated By
i = i + 1
End If
ActiveCell.Offset(1, 0).Activate
Loop

'Populate the View COY Screen
Sheets("View COY").Activate

Range("A2") = "ADMIN Coy BSB Review"

Range("A4").Activate
i = 0
r = ActiveCell.Row
Do
i = i + 1
Range("A" & r) = MyArray(i, 1) 'Platoon
Range("B" & r) = MyArray(i, 2) 'ARN
Range("C" & r) = MyArray(i, 3) 'Equipment
Range("D" & r) = MyArray(i, 4) 'Variant
Range("E" & r) = MyArray(i, 5) 'Class
Range("F" & r) = MyArray(i, 6) 'NSN
Range("G" & r) = MyArray(i, 7) 'SCA
Range("H" & r) = Format(MyArray(i, 8), "dd-mmm-yyyy") 'Next NTI
Range("I" & r) = Format(MyArray(i, 9), "dd-mmm-yyyy") 'Next Service
Range("J" & r) = Format(MyArray(i, 10), "dd-mmm-yyyy") 'Next SCI/TI
Range("K" & r) = MyArray(i, 11) 'LOC
Range("L" & r) = MyArray(i, 12) 'EMEFIX #
Range("M" & r) = Format(MyArray(i, 13), "dd-mmm-yyyy") 'EMEFIX Review Date
Range("N" & r) = MyArray(i, 14) 'Remarks
Range("O" & r) = MyArray(i, 15) 'Last Updated by
ActiveCell.Offset(1, 0).Activate
ActiveCell.EntireRow.Insert , CopyOrigin:=xlFormatFromRightOrBelow
Selection.HorizontalAlignment = xlCenter
r = r + 1
Loop Until i = UBound(MyArray)


Sheets("View COY").Select

Thank you in advance!!!