Make sure that the scroll bars and status bar are hidden and that the formula bar is displayed:
Sub scroll() With Application .DisplayScrollBars = False .DisplayStatusBar = False .DisplayFormulaBar = True End With End Sub