VBA to count number of cells with exact text

[rbone]

Hello,
I'm looking for a VBA script to find the total number of cells in a worksheet with the text "VOIP", but not "VOIP*", and output the count cell "S5"

Any assistance is greatly appreciated.

The following is giving me all instances of VOIP, including VOIP*

Range("S5").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(R1C1:R3057C13,""VOIP"")"

 

[rbone]

No problem, it's easily done.
Do you just want to count the visible cells?

I would love to just count the visible cells

 

[Fluff]

You can use
=SUMPRODUCT((A1:M9997="VOIP")*(SUBTOTAL(103,OFFSET(A1,ROW(A1:A9997)-MIN(ROW(A1:A9997)),0))))

But it will only count cells where col A has a value

 

[rbone]

You can use
=SUMPRODUCT((A1:M9997="VOIP")*(SUBTOTAL(103,OFFSET(A1,ROW(A1:A9997)-MIN(ROW(A1:A9997)),0))))

But it will only count cells where col A has a value

Thank you, Fluff! That worked perfectly.

I tried following the other threads about SUMPRODUCT and I just couldn't get it right, but with the correct syntax, I can see what I was doing wrong.

 

[Fluff]

You're welcome & thanks for the feedback