計算最大值的問題

請問vba中有沒有可以計算一群數字中最大值的函數
我現在只會用if a > b then.....一個一個去比較
快累死了...

謝謝
這是指引用excel本身提供的函數嗎
如果是
那最小值也可以這樣用囉
Sub 最小()
a = 1: b = 5: c = 6: d = 9: e = 11
m = Application.WorksheetFunction.Min(a, b, c, d, e)
MsgBox m
End Sub

[QUOTE][i]最初由 常上此站的動物 發表[/i]
[B]供您參考~~
Sub 最大()
a = 1: b = 5: c = 6: d = 9: e = 11
m = Application.WorksheetFunction.Max(a, b, c, d, e)
MsgBox m
End Sub [/B][/QUOTE]