When I run the code below, the horizontal scrollbar and status bar are
partially hidden by the taskbar. If I resize the taskbar, the status bar and
scrollbar appear unobstructed above the taskbar, but without resizing the
taskbar they remain partially hidden.

Is there anyway I can make it so that the status bar and horizontal bar are
unobstructed from the outset automatically?

Thanks

Sub Auto_open()

With Application
.DisplayFullScreen = True
.ScreenUpdating = False
.DisplayFormulaBar = False
.DisplayScrollBars = True
.DisplayStatusBar = True
'.CommandBars("Standard").Visible = False
'.CommandBars("Formatting").Visible = False
'.CommandBars("Drawing").Visible = False
'.CommandBars("Control Toolbox").Visible = False


End With



Dim current_screen As String
Dim ws
On Error Resume Next
current_screen = ActiveSheet.Name
For Each ws In ActiveWorkbook.Worksheets
ws.Select
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = False
End With
Next
Worksheets(current_screen).Select
With Application '

End With
Range("A1").Select



End Sub

Sub auto_close()

With Application
.DisplayFullScreen = False
.ScreenUpdating = False
.DisplayFormulaBar = True
.DisplayScrollBars = True
.DisplayStatusBar = True
'.CommandBars("Standard").Visible = True
'.CommandBars("Formatting").Visible = True
'.CommandBars("Drawing").Visible = True
'.CommandBars("Control Toolbox").Visible = True
End With
Dim current_screen As String
Dim ws
On Error Resume Next
current_screen = ActiveSheet.Name
For Each ws In ActiveWorkbook.Worksheets
ws.Select
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Next
Worksheets(current_screen).Select
With Application '
End With

End Sub