3 ways-
1) Freeze panes - Mudraker
2) Create Modeless userform.. - Fst1
3) Create a toolbar :-

Sub RemoveCB()
On Error GoTo EndThis
CommandBars("Tbname").Delete ' Make sure bar does not
exist first..! if so remove
EndThis: End Sub

Sub AddToolBar()
Set MyBar = CommandBars.Add("Tbname", msoBarFloating, False,
True)
With MyBar
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoResize +
msoBarNoChangeDock
With .Controls.Add '
.Caption = " What this button does"
.FaceId = 172
.Style = msoButtonIconAndCaption
.TooltipText = "What this button does"
.OnAction = "Button_macro"
.SetFocus
' Bar Autosizes to Control Height *** Min Height =22
.BeginGroup = True
End With
End with
End Sub

Then your Commandbar created in OnSheet activete event.. or
similar

Hope that helps
A.

"Gerry" wrote in message
...
| How can I get command button to remain visible on the
screen as excel page
| scrolls
| --
| Many Thanks