[VBA] Application.run con passaggio di parametri indefinito

[valeriobb87]

Sto risolvendo così, possibile che non ci sia una soluzione migliore?

Select Case UBound(par)
Case -1: Application.Run funzione
Case 0:  Application.Run funzione, par(0)
Case 1:  Application.Run funzione, par(0), par(1)
Case 2:  Application.Run funzione, par(0), par(1), par(2)
End Select

[ibernet]

Sto risolvendo così, possibile che non ci sia una soluzione migliore?

Select Case UBound(par)
Case -1: Application.Run funzione
Case 0:  Application.Run funzione, par(0)
Case 1:  Application.Run funzione, par(0), par(1)
Case 2:  Application.Run funzione, par(0), par(1), par(2)
End Select

Mi sa che è l'unica strada, ho anche io lo stesso problema ma per quel che devo fare funziona.
Ti giro un link che spiega un po' tutto:
http://www.rondebruin.nl/win/s9/win001.htm