Smallest Value in Range

Sub Smallest()
Dim rng As Range
Dim Minimum As Double

Set rng = Sheet1.Range("A1:Z100")
Minimum = Application.WorksheetFunction.Min(rng)

MsgBox Minimum

End Sub