Application VisualBasic Script

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