Sub ShowMax() Dim TheMax As Double TheMax = WorksheetFunction.Max(range("A1:C3")) MsgBox TheMax End Sub