dim dt as Date
res = InputBox("Please enter last date of count")
dt = Cdate(res)

msgbox application.countif(Range("B:B"),format(dt,"dd/mm/yy"))


--
Regards,
Tom Ogilvy




"CPower " wrote in message
...
Hi Guys,

As a part of a macro that i am doing, the amount of cases before the
week that is been worked on must be counted. Is there a way of coding a
pop up to ask the user to enter the date to count back from.

i.e when compling the data for the week ending 30/06/04, all the dates
before and including the 23/06/04 must be counted.


Is there any way of doing this through macro?
Any help on this would be great....

Thanks in Advance,
Cathal.


---
Message posted from http://www.ExcelForum.com/