Para calcular el maximo valor de una serie de numeros
Aportacion hecha por Chea.
Utiliza ParamArray, que para mi era una desconocida hasta que lo comentó Chea en las News



Public Function MaxValor(ParamArray Valores() As Variant) As Variant
Dim v As Variant
MaxValor = Valores(0)
For Each v In Valores
    If v > MaxValor Then
        MaxValor = v
    End If
Next
End Function

Sub prueba()
 MsgBox MaxValor(1, 2, 3)
 
End Sub