Vypnutie Casovanie

Private Sub btnNastavCas_Click()
    Dim casSkoncenia As String
    casSkoncenia = txtNastavenieCasu
    Call konciZaCas(casSkoncenia)
End Sub

Sub konciZaCas(casSkoncenia As String)
    '    Debug.Print casSkoncenia
    For Each w In Application.Workbooks
        w.Save
    Next w
    Application.OnTime Now + TimeValue("00:00:" & casSkoncenia), "konciHned"

End Sub

Sub konciHned()
    Application.Quit

End Sub