ParameterFromSubName
From scripting
Function ParameterFromSubName(NameStr As String, ParmsList As Parameters) As Parameter For X = 1 To ParmsList.Count If InStr(ParmsList.Item(X).Name, NameStr) <> 0 Then Set ParameterFromSubName = ParmsList.Item(X) Exit Function End If Next X End Function