markierte Zellen zählen

Sub Mittelwertberechnen()
Dim bereich As Range
Dim dst As Range
Set dst = Nothing
On Error Resume Next
Set bereich = Application.InputBox("Bitte markieren Sie die Zellen für die der Mittelwert berechnet werden soll", Type:=8)
If bereich Is Nothing Then Exit Sub
'Ist es möglich die Zellen welche unter "bereich" gewählt wurden zu zählen
'Es ist nähmlich so, dass der Anwender, wenn er mehr als 15 Zellen
'markiert hat, einen diesbezüglichen Hinweis bekommen soll.
Set dst = Application.InputBox("Bitte wählen Sie die Zelle in die der Mittelwert eingefügt werden soll und drücken Sie OK", Type:=8)
On Error GoTo 0
If dst Is Nothing Then Exit Sub
dst.Value = Application.WorksheetFunction.Average(bereich)
End Sub