Beispielcode:
Private Sub cmdBerechnen_Click()
Dim Bereich As Range
Set Bereich = Range(RefEdit1.Value)
If RefEdit1.Value = "" Then
MsgBox "Sie müssen einen Bereich kennzeichnen!"
RefEdit1.SetFocus
Exit Sub
End If
Label2.Caption = WorksheetFunction.Max(Bereich)
Label4.Caption = WorksheetFunction.Min(Bereich)
End Sub