Automatically move button while scrolling

[emmieh]

Is it possible to let a button automatically move while scrolling? So you can click the button to move to the top of a sheet.

 

[p45cal]

This'll keep the button top left. In the sheet's code-module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("CommandButton1").Top = Rows(ActiveWindow.ScrollRow).Top + 2
Shapes("CommandButton1").Left = Columns(ActiveWindow.ScrollColumn).Left + 2
End Sub

This code behind the (activeX) button will move the selection to the top of the sheet in the same column. In the sheet's code-module:

Private Sub CommandButton1_Click()
Cells(1, ActiveCell.Column).Select
End Sub

 

[emmieh]

that works, thank you very much!