Hi,

This what i require to do is after an input box pops up enter a dat
this then filters the criteria for that date and counts how man
results are ther.

The code i am using is below but i have problems. If a use text it i
fine and works but when i chage the code for a date it doesn't the dat
code is below.

Dim rng As Range
Dim rng2 As Range
Dim strCheck As String

Sheets("Telephone Stats").Select

strCheck = Application.InputBox("Please enter date you require data fo
(date must be enter dd/mm/yyyy)", "Manager Checks")

Selection.AutoFilter Field:=7, _
Criteria1:="=" & CLng(CDate(strCheck))

Set rng = ActiveSheet.AutoFilter.Range

MsgBox rng.Columns(1). _
SpecialCells(xlVisible).Count - 1 _
& " of " & rng _
.Rows.Count - 1 & " Records"

Sheets("Manager Checks").Select

End Su

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