Works OK here. Do you have any code after this which affects the borders in
some way (eg clears borders, pastes data from cells without broders etc)?

--
Ian
--
"jjfjr" <jjfjr@discussions.microsoft.com> wrote in message
news:DFAA93EA-EB88-4DA5-B3C2-8B3FFB3B20B6@microsoft.com...
> Hi;
>
> I have a two sheet workbook where one sheet is called "Data" and the other
> "Results". Data holds my information to search on while the top part of
> results holds the cells whose values will be searched for. This is called
> the
> criteria range. The bottom part of Results is the area where any hits will
> appear.
>
> I've noticed that some of the criteria range cell borders get removed
> after
> searches. I've tried the following code to regenerate the borders:
>
> CritRng = "B3:K5"
> ...
> Worksheets("Results").Range(CritRng).BorderAround _
> Weight:=xlThin
>
> However, some of the borders in the specified range do not regenerate.
> Any
> ideas?
>
> --
> JJFJR