Alternatively:

mStrCount = Application.CountA(ActiveSheet.Range("DX1:IV1"))

In article ,
BB Ivan wrote:

Sorry. I figured it out. Thanks!

funcRange = "'" & ActiveSheet.Name & "'!DX1:IV1"
funcName = "=COUNTA"
funcNameRange = funcRange & "(" & funcName & ")"
mStrCount = Evaluate(funcNameRange )