Couple of revisions and corrected a typo and it worked for me with actual
dates in A1:A365 starting with Jan 01, 2004.

Sub AAtester10()
Dim sStart As String, sEnd As String
Dim res As Variant, res1 As Variant
Dim rng As Range
sStart = InputBox("Enter Start Date")
sEnd = InputBox("Enter End Date")

If IsDate(sStart) And IsDate(sEnd) Then
res = Application.Match(CLng(CDate(sStart)), Range("A1:A365"), 0)
res1 = Application.Match(CLng(CDate(sEnd)), Range("A1:A365"), 0)
If Not IsError(res) And Not IsError(res1) Then
Set rng = Range(Range("A1:A365")(res), Range("A1:A365")(res1))
rng.Resize(, 6).BorderAround Weight:=xlMedium, ColorIndex:=3
End If
End If

End Sub

--
Regards,
Tom Ogilvy

"darno " wrote in message
...
i tried your code, but it says type mismatch i am marking that line with
three greater than sysmbols .


Dim sStart As String, sEnd As String
Dim res As Variant, res1 As Variant
Dim rng As Range
sStart = InputBox("Enter Start Date")
sEnd = InputBox("Enter End Date")

If IsDate(sStart) And IsDate(sEnd) Then
res = Application.Match(CLng(sStart), Range("A1:A30"), 0)
res1 = Application.Match(CLng(sEnd), Range("A1:A30"), 0)
If Not IsError(res) And Not IsError(res1) Then
Set rng = Range(Range("A1:A20")(res), Range("A1:A365")(res1))
rng.Resize(, 6).BordersAround Weight:=xlMedium, ColorIndex:=3
End If
End If

Please come back soon


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