Hi Phil

Sub test()
Dim L As Long
L = 600
MsgBox Application.Max(3.1415, L, 903.33, -4, 2)
End Sub

--
HTH. Best wishes Harald
Followup to newsgroup only please.

"Phillips" wrote in message
news:Xd8zb.400557$Tr4.1152293@attbi_s03...
I am trying to do the same thing as =MAX(I2,M2,Q2) would do.
How can I do this? Can I add more values to compare?

Thanks,
Phil