На их веб-сайте произошла ошибка кодирования HTML.
В подпункте TimeSetting()
он должен выглядеть следующим образом:
Sub TimeSetting()
CloseTime = Now + TimeValue("00:00:15")
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=True
End Sub
Часть <span style="background-color:#ff0">
, которая была в вашемНа самом деле код предназначался для стилизации Sub на их веб-сайте, а не для того, чтобы быть частью кода.