Compile error: Variable not defined

[KDub]

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:

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?

 

[dmt32]

I am receiving a Compile error: Variable not defined on the below code:

Dim SchedRecalc As String

SchedRecalc = Now + TimeValue("00:00:01")


End Sub

Hi welcome to forum

You have a typo in your declaration which probably is why the compiler is complaining - try amending where shown

Dave