You have to pass a range to it, not an Excel cell reference

currency_check =
Application.WorksheetFunction.COUNTIF(Range("N:N") ,"""<GBP""") -
Application.WorksheetFunction.COUNTIF(Range("N:N") ,"""<*""")

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"ashish128" wrote in message
ups.com...
Hi to all,

I dont know why following line of code in my macro is giving a compile
error

Single line Code

currency_check = Application.WorksheetFunction.COUNTIF(N:N,"<GBP") -
Application.WorksheetFunction.COUNTIF(N:N,"<"&"*" )

<<<Single line Code

I have declared it as
Dim currency_check As Integer

But the compiler objects at ":" (n:n) part of function and says that,"
Expected List Seperator or )"

Kindly advice.

With Regards,

Ashish