try this

worksheetfunction.CountA(columns("B:B"))

fill some entries in columnB
and type this in immediate window
?worksheetfunction.CountA(columns("B:B"))
what do you get


"Daminc" wrote in
message ...

I'm not sure if this is possible but I have been trying to create a
macro that would do a COUNTA function on a selected range and display
the result in a message box

i.e.

Dim Rangea As Range
Dim Resulta As Variant

Rangea = selelected.Range
Resulta = Application.WorksheetFunctions.counta.Rangea
MsgBox Resulta

It doesn't come close to working so can anyone suggest a way of
accomplishing this?

Cheers :)


--
Daminc
------------------------------------------------------------------------
Daminc's Profile:
http://www.excelforum.com/member.php...o&userid=27074
View this thread: http://www.excelforum.com/showthread...hreadid=492124