Hi All,
I have popped a piece of code together from various sources in an attempt to disable the ribbon when minimizing.
I am reasonably new to Excel VBA Code and I am receiving a Compile error: Variable not defined on the below code:
Any help?
I have popped a piece of code together from various sources in an attempt to disable the ribbon when minimizing.
I am reasonably new to Excel VBA Code and I am receiving a Compile error: Variable not defined on the below code:
VBA Code:
Sub StartLoop()
Dim ShedRecalc As String
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
If Application.WindowState = xlMaximized And ActiveWorkbook.Name = "[COLOR=#ff0000]DocumentSignposting_V3.8.xlsm[/COLOR]" Then
Application.DisplayFullScreen = True
ElseIf ActiveWorkbook.Name <> "[COLOR=#ff0000]DocumentSignposting_V3.8.xlsm[/COLOR]" Then
Application.DisplayFullScreen = False
End If
End Sub
Any help?