Olá Pessoal

Estou com um probleminha no seguinte código:

Sub gravar()
     ThisWorkbook.Save
     Call timer
End Sub

Sub timer()
     Application.OnTime Now + TimeValue(Worksheets("Configurações").Range("C5")), "gravar"
End Sub

Como vocês podem perceber é um código que fica repetindo em loop para fazer com que a planilha seja salva a cada "X tempo".
Pois bem, se eu determino o intervalo de tempo diretamente no código:

Application.OnTime Now + TimeValue("00:01:00"), "gravar"

ela funciona de boa, mas se uso uma referência de célula dá o erro 13.
Realmente não sei como validar a referência para que a macro seja repetida no intervalo desejado.

A célua que estou usando como referência contém "00:00:30" e está formatada como "Hora".

Obrigado pela ajuda