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

Comments

Popular posts from this blog

50 Excel VBA Oral Interview Questions