Hi,
Can this be done shorter, without using cell B1
Range("B1").Formula = "=COUNTIF(A:A,""*Stock*"")"
Stock = Range("B1").Value
Range("B1").Clear
Cheers,
Harold
Dave Peterson - 31 Mar 2008 23:58 GMT
Dim Stock As Long
Stock = Application.CountIf(ActiveSheet.Range("a:a"), "*stock*")
MsgBox Stock
> Hi,
>
[quoted text clipped - 7 lines]
>
> Harold

Signature
Dave Peterson