Verilen alandaki dolu hücrelerin sayısını veren VBA kodu alternatifidir.
Option Explicit
Sub VerilenAlandaDoluHucrelerinSayisiniVer()
Dim doluHucreSayisi As Long
doluHucreSayisi = WorksheetFunction.CountA(Range("A1:E100"))
MsgBox doluHucreSayisi
End Sub