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/