On Jun 15, 3:51 pm, Mike H wrote:
Try this:-

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

Mike



"ashish128" wrote:
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- Hide quoted text -

- Show quoted text -

Thanks Friend, It worked