Keeping a shape visible

[K Barrett]

I have a spreadsheet that has horizontal and vertical panes frozen at
cell B10. Is it possible to place a shape at A1, that extends beyond
column A, that will remain completely visible as the user scrolls to
the right. Basically, I would like the entire shape to stay visible
at the top of the screen regardless of where the user scrolls - like a
screen header.

Thanks for any help!

 

[Dave Peterson]

Can you live with the shape in a cell besides A1?

If yes, then this might work for you:

rightclick on the worksheet tab and select view code. Paste this in:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myShape As Shape
Set myShape = Me.Shapes("Picture 1")
myShape.Left = ActiveSheet.Cells(1, ActiveWindow.ScrollColumn).Left
End Sub


Each time the user changes the selection, the shape will be placed in the
topleft corner.

Not quite the same, but kind of close.

And if the user uses the horizontal scrollbar to move around, then the shape
will not appear until he/she selects a cell.

 

[K Barrett]

It worked like a charm!! You've made my day Thanks again!