"Counter" in macro
Hi,
I'd prefer
Count = WorksheetFunction.CountIf(Range("A1:D200"), "Boo")
no need for application
I did it that way because I wanted to include Ucase(trim....
What's the syntax for including that in worksheet.function method?
Mike
"Rick Rothstein" wrote:
But if you have a particular reson for wanting a macro then use this
Sub marine()
Dim Myrange As Range
Set Myrange = Range("A1:D200")
For Each c In Myrange
If UCase(Trim(c.Value)) = "BOO" Then
Count = Count + 1
End If
Next
MsgBox Count
End Sub
Or...
Sub marine() ' <g
Dim Count As Long
Count = Application.WorksheetFunction.CountIf(Range("A1:D2 00"), "Boo")
MsgBox Count
End Sub
--
Rick (MVP - Excel)
|