Why does this code work one day, then the next it does not?
I have to write a new code every time I launch this WB WHY??

My security is set to LOW now, and trusted sources are both checked.
It ONLY happenes in this workbook, the codes work in others just fine, what
could be the problem with this workbook ( if the code is right?)
Thanks in advance if you can help.

Sub FindThis()
Dim rngToSearch As Range
Dim rngFound As Range
Dim wks As Worksheet
Set wks = ActiveSheet
Set rngToSearch = Worksheets("Schedule").Range("A4:A5205")
Set rngFound = rngToSearch.Find(What:=wks.Range("$A$1"), _
LookAt:=xlPart, MatchCase:=False)

If Not rngFound Is Nothing Then
Application.Goto Range(rngFound.Address), True


Else
MsgBox "Not Found"
End If
End Sub