Try something like

myCount = application.COUNTA("B1:B1000")
Msgbox "You have " & myCount & " goodies"

best wishes
--
www.stfx.ca/people/bliengme


"muddan madhu" wrote:

Hi All,

I have 10 columns and i am running macro , Macro part is ok at the end
i need to add some msgbox.

how should i do ....I need msgbox to display result using counta
formula for a Range ("B:B").

Suppose if range("B:B") has 100 values or Text then it should display
"you have 100 to work"

Similarly is it possible to add countif function in msgbox -
countif(Range("A:D"),"ok")

Thanks in advance