Find the top row on active screen?

[I'm rubbish with Excel]

Hello,

Is there any way to return the top row that is currently visible on the screen?

I'm working on a sheet that uses shapes and I'd like to be able to automatically move shapes to the upper row of the screen, regardless of where the user has scrolled to.

I hope this makes sense.

Thanks

 

[VoG]

Try like this

Sub TopRow()
Dim visRange As Range
Set visRange = ActiveWindow.visibleRange
MsgBox "the top row is " & visRange.Rows(1).Row
End Sub

 

[I'm rubbish with Excel]

Perfect! Thanks so much