Greetings and TIA for your time

With columns AA and AB blank, the WorksheetFunction.sumproduct in the code
below returns zero as expected. Increasing the size of Array1 & Array2 by 1
element to 5462 or beyond results in a "Type Missmatch" error message.
Please advise

Sub TestSumProduct()
Dim Array1 As Variant
Dim Array2 As Variant

Array1 = Range("AA1:AA5461").Value
Array2 = Range("AB1:AB5461").Value
MsgBox WorksheetFunction.SumProduct(Array1, Array2)
End Sub

--
David