Soru Dolgu rengi ve boş hücreleri hesaba katmadan ortalama alabilme?

[ErLink]

Function OrtalamaBul(myRange As Range) As Double
Dim xRange As Range
For Each xRange In myRange
If xRange.Interior.ColorIndex = -4142 Then
i = i + 1
mySum = mySum + xRange.Value
End If
Next
OrtalamaBul = mySum / i
End Function

Yukarıdaki makro da hücrede dolgu rengi varsa bunun haricindeki seçilen alandaki değerleri toplayıp ortalama almaktadır. Fakat seçilen hücre aralığında boş veya karakter varsa hata veriyor.
If xRange.Interior.ColorIndex = -4142 Then
satırına nasıl bir formül yazamalıyım ki hem doguları hesaba katmasın hemde boş veya "-" tire işareti verdiğim hücreleri hesaba katmadan ortalama alabileyim.

Şimdinden Teşekkürler.
Başka değişik önerileriniz varsa lütfen paylaşın.

 

[Muzaffer Ali]

Neden excelde zaten var olan aşağıdaki ortalama fonksiyonunu kullanmıyorsunuz?

WorksheetFunction.Average(myRange)