Max of integer vals

[jbl25]

Hello,
How do I take the max of 2 integer values in VBA? (I'd like to set
variable = to the max of itself and a cell reference which contains a
int) Thank you

 

[Trevor Shuttleworth]

One way:

Sub test()
' put a value in cell B3, say 10
Dim i As Long
i = 3
i = WorksheetFunction.Max(i, Range("B3"))
MsgBox i
End Sub

Regards

Trevor

 

[Frank Kabel]

Hi
use application.worksheetfunction.max(...)

 

[Tom Ogilvy]

If you only do 2
Dim intVal as integer, intMax as Integer
intVal = int(rnd() * 2 * Range("B9").Value + 1)
if intVal > Range("B9").value then
intMax = intValue
Else
intMax = Range("B9").Value
End if

or use the immediate IF
intMax = iif(intVal>Range("B9"),intVal,Range("B9"))