Sub scroll() With Application .DisplayScrollBars = False .DisplayStatusBar = False .DisplayFormulaBar = True End With End Sub