GenerateRealParametersFromDblArray
From scripting
Function GenerateRealParametersFromDblArray(ParmList As Parameters, DblArr As Variant) As Variant Dim ParmArr() ReDim ParmArr(UBound(DblArr)) For X = 0 To UBound(DblArr) Set ParmArr(X) = ParmList.CreateReal("STD_Rad" & Format(X, "00"), DblArr(X)) Next X GenerateRealParametersFromDblArray = ParmArr End Function