Wyszukiwanie wartości najmniejszej/największej VBA

Witam.
Czy mógłby mi ktoś podsunąć pomysł w jaki sposób wyszukać wartość największą/najmniejszą w zakresie określonym przez użytkownika w VBA w Excelu???

Hej,
jeśli wyszukiwanie odbywałby się po kolumnie "D", to kod wyglądałby tak:
Sub najwieksza()

Dim max As Integer

Range("D1").Activate
max = ActiveCell.Value

Do While ActiveCell.Value <> ""
    If ActiveCell.Value > max Then
        max = ActiveCell.Value
     End If
ActiveCell.Offset(1, 0).Activate
Loop

MsgBox "Najwieksza wartość to: " & max

End Sub

Sub najmniejsza()

Dim min As Integer

Range("D1").Activate
mix = ActiveCell.Value

Do While ActiveCell.Value <> ""
    If ActiveCell.Value < mix Then
        max = ActiveCell.Value
     End If
ActiveCell.Offset(1, 0).Activate
Loop

MsgBox "Najmniejsza wartość to: " & mix

End Sub

Mam nadzieje, ze pomoglem.
Pozdrawiam

można też użyć funkcji excelowej MAX() w kodzie VBA