problem with putting borders around cells with macro

[jjfjr]

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

[Ian]

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