"https://exceljet.net/formula/count-cells-that-contain-text"

Need put double hyphen (called a double unary) to Istext return 1's and 0's to makes sum.

=SUMPRODUCT(--ISTEXT(rng))

Dim strFormula As String
strFormula = "SumProduct(" & IsText & "(" & Columns(3).Address & "))"


MsgBox Application.Evaluate(strFormula)
This below works fine for numeric values but i not able to make this work with text
if i put the double hyphen returns type mismatch erros and others.

Dim strFormula As String
strFormula = "SumProduct(" & IsText & "(" & Columns(3).Address & "))"
MsgBox Application.Evaluate(strFormula)
I want count entire column in oneShot to know if exists and quantity of each data type to determine if set the range and run the macro or exit sub.

I am make plot of graphs using autoshapes and need only numeric values but it is the array to map the worksheet used range dinamicaly.

i know workarounds but this way with Evaluate, Sumproduct, CountA, and Worksheet.Functions() and IsEmpty, IsText, IsNumber, HasFormula is the more powerfull and dinamic for me.

i am working in the button between blue colors, macro name "Sub LastRowLoopAREAS_IF3()".
I did not clean the macro because I'm studying the codes.

thanks.