Boa Tarde.
Consegui adaptar a Macro para resolução do problema.
Encontrei essa rotina que faz uma contagem regressiva na internet

Sub C_Regressiva()
Range("K7") = 60
For i = 1 To 60
Application.Wait Now + TimeSerial(0, 0, 1)
Range("K7") = Range("K7") - 1
Next
End Sub

Então partir dai é só chamar a função junto com a troca da planilha.

Sub Inicia_Troca_Planilha()
    SlideShowActive = True
    Application.OnTime Now + TimeValue("00:01:00"), "TrocaPlanilha"
    C_Regressiva  
End Sub

Segue a planilha em anexo para Exemplo caso alguém precise no futuro.