Public Sub setOptions() With Application .SetOption "show status bar", False .SetOption "show startup dialog box", False End With End Sub