largest value in range

Sub Largest()

Dim rng As Range

Dim maximum As Double

Set rng  Sheet1.Range("A1:Z100")maximum 

Application.WorksheetFunction.Max(rng)

MsgBox maximum

End Sub