Excel VisualBasic Script

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