That is OUTSTANDING Ken..........thanks a HEAP. I had a small problem of it
coming up behind other Drawing Objects but was able to figure out how to
bring it to the front and now life is good. It works perfectly, as you
described, and I really appreciate your help.

Vaya con Dios,
Chuck, CABGx3



"Ken Johnson" wrote:

CLR wrote:
Hi All.........
If someone would be so kind.....I'm trying to find out how to make a Drawing
Object, (specifically "Rectangle 1") float on the screen like some of the
annoying pop-ups do, so it will always be on-screen as the user scrolls up
and down the sheet. I know about the Freeze line, but don't want that in
this case.

TIA
Vaya con Dios,
Chuck, CABGx3

Hi Chuck,

This it pretty rough and probably just for a laugh...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me.Shapes("Rectangle 1")
..Top = ActiveWindow.VisibleRange.Top + 100
..Left = ActiveWindow.VisibleRange.Left + 100
End With
End Sub


When the user scrolls the rectangle out of view it does move out of
view. However,
If the visible range is clicked then the rectangle reappears 100 points
from the top and left side.

Ken Johnson