Does anyone have an elegant fix to the following:
1. Put text in any cell in Sheet2, say cell A1.
2. Select a cell in Sheet1.
3. Run this code:
Sub Test()
Sheets(2).Range("A1").Copy ActiveCell
End Sub
4. Now select a different cell in Sheet1. I find that the black border
highlight of the former activecell (cell that was pasted to) acts in reverse
- i.e. if you select it, the black border goes blank and if you select a
differenct cell it receives a black border. Therefore, two cells now have
black borders.

You can fix it with a kludge:
Sub Test()
Sheets(2).Range("A1").Copy ActiveCell
ActiveCell.Copy ActiveCell
End Sub

You can also fix it by scrolling until the cell is off screen and then
scrolling back; or seleting a multicell range that completely contains the
affected cell, and then select the cell.

If I don't receive a better solution then this will at least serve as a bug
warning. Wondering if there is a more elegant solution (repainting?) or if
I'm missing something. Appreciative of your responses.

Greg

Greg,
Yes, I see the same behaviour in XL2K & XL2002.
Seems to have been around for a while, possibly related to the mouse driver:
http://www.mvps.org/dmcritchie/excel/ghosting.txt

NickHK

"Greg Wilson" <(E-Mail Removed)> wrote in message
news:77B5CD49-05CA-4E7A-A0E1-(E-Mail Removed)...
> Does anyone have an elegant fix to the following:
> 1. Put text in any cell in Sheet2, say cell A1.
> 2. Select a cell in Sheet1.
> 3. Run this code:
> Sub Test()
> Sheets(2).Range("A1").Copy ActiveCell
> End Sub
> 4. Now select a different cell in Sheet1. I find that the black border
> highlight of the former activecell (cell that was pasted to) acts in
reverse
> - i.e. if you select it, the black border goes blank and if you select a
> differenct cell it receives a black border. Therefore, two cells now have
> black borders.
>
> You can fix it with a kludge:
> Sub Test()
> Sheets(2).Range("A1").Copy ActiveCell
> ActiveCell.Copy ActiveCell
> End Sub
>
> You can also fix it by scrolling until the cell is off screen and then
> scrolling back; or seleting a multicell range that completely contains the
> affected cell, and then select the cell.
>
> If I don't receive a better solution then this will at least serve as a
bug
> warning. Wondering if there is a more elegant solution (repainting?) or if
> I'm missing something. Appreciative of your responses.
>
> Greg
>
>

Hi Greg

I'm not sure why excel would be doing that but it does it on my system
to. It will work if you pass the cell value to a string then put the
string to the activecell like the code below.

Option Explicit
Dim MyStr As String

Sub Test()
MyStr = Sheets(2).Range("A1")
ActiveCell.Value = MyStr
End Sub

Hope this is of some use to you.

S

Thanks Nick. I gusess my solution is as good as any other.

Greg

"NickHK" wrote:

> Greg,
> Yes, I see the same behaviour in XL2K & XL2002.
> Seems to have been around for a while, possibly related to the mouse driver:
> http://www.mvps.org/dmcritchie/excel/ghosting.txt
>
> NickHK
>
> "Greg Wilson" <(E-Mail Removed)> wrote in message
> news:77B5CD49-05CA-4E7A-A0E1-(E-Mail Removed)...
> > Does anyone have an elegant fix to the following:
> > 1. Put text in any cell in Sheet2, say cell A1.
> > 2. Select a cell in Sheet1.
> > 3. Run this code:
> > Sub Test()
> > Sheets(2).Range("A1").Copy ActiveCell
> > End Sub
> > 4. Now select a different cell in Sheet1. I find that the black border
> > highlight of the former activecell (cell that was pasted to) acts in
> reverse
> > - i.e. if you select it, the black border goes blank and if you select a
> > differenct cell it receives a black border. Therefore, two cells now have
> > black borders.
> >
> > You can fix it with a kludge:
> > Sub Test()
> > Sheets(2).Range("A1").Copy ActiveCell
> > ActiveCell.Copy ActiveCell
> > End Sub
> >
> > You can also fix it by scrolling until the cell is off screen and then
> > scrolling back; or seleting a multicell range that completely contains the
> > affected cell, and then select the cell.
> >
> > If I don't receive a better solution then this will at least serve as a
> bug
> > warning. Wondering if there is a more elegant solution (repainting?) or if
> > I'm missing something. Appreciative of your responses.
> >
> > Greg
> >
> >
>
>
>

Thanks for your response. Unfortunately I also need the formats and so
copying is the best option.

It appears to be caused by the copy/paste operation. You don't actually need
to pass the value to a variable. For example, this doesn't cause the problem:

ActiveCell.Value = Sheets("Sheet2").Range("A1").Value

while this does:

Sheets(2).Range("A1").Copy ActiveCell

Regards,
Greg

"Incidental" wrote:

> Hi Greg
>
> I'm not sure why excel would be doing that but it does it on my system
> to. It will work if you pass the cell value to a string then put the
> string to the activecell like the code below.
>
> Option Explicit
> Dim MyStr As String
>
> Sub Test()
> MyStr = Sheets(2).Range("A1")
> ActiveCell.Value = MyStr
> End Sub
>
> Hope this is of some use to you.
>
> S
>
>
>
>