Paramarray

[tiredofit]

I want to write a function where the first argument is mandatory (the year) but subsequent arguments vary from no arguments to as many as entered.

Is that possible?

I don't want to write:

Public Function MyFn(Year, Optional Loc1, Optional Loc2, Optional Loc3, Optional Loc4, Optional Loc5, Optional Loc6, Optional Loc7) As Long

    


End Function

because I might have more than 7 Loc arguments.

Thanks

 

[shg]

Public Function MyFn(Year, ParamArray avLoc() As Variant) As Long
  Dim i As Long
  
  MsgBox Join(avLoc, ", ")
  
  For i = 0 To UBound(avLoc)
    ' do stuff
  Next i
End Function

 

[tiredofit]

Thanks

 

[shg]

Y w