Macro containing ByVal not running

[eshannon10]

I'm attempting to call out an array in a sub through "ByVal as Varient" in another sub and thought I had done it correctly, only the macro is not running with the ByVal in it. here's the code:

'code is long, just taking relevant data. 

For i = 1 To NumElements


    MWComp(i) = (MolPerc(i) / 100) * MW(i)
    'compositional MW (fraction)


    Q1ResVol(i) = Q * (MolPerc(i) / 100)
    'volumetric flow calculation (MMSCFD)
    
Next i


Call QCombRes1(Q1ResVol)


For i = 1 To NumElements


Next i


End Sub

'--------------------------------------------------------------------------------------------------------------
Sub QCombRes1(ByVal test1 As Variant)
    
Dim i As Long


For i = LBound(test1) To UBound(test1)
'takes low to upper bounds of array called out in previous subs


Next i
    
Cells(2 + i, 13).Value = test1
    
End Sub

When the cursor is placed in the second sub and trying to run code, Macro box pops up with only other existing subs.

Please help, thanks