-
You're better off using CountA for that...
[vba]Option Explicit
'
Sub Try()
With Sheets("Daily Call Report")
.Range("C8") = Application.CountA(Range("H1:H400"), "=17/05/2006") - 1
End With
End Sub[/VBA]
You know you're really in trouble when the light at the end of the tunnel turns out to be the headlight of a train hurtling towards you 
The major part of getting the right answer lies in asking the right question...
Made your code more readable, use VBA tags (this automatically inserts [vba] at the start of your code, and [/vba ] at the end of your code) | Help those helping you by marking your thread solved when it is.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
Reply With Quote