Guru do Excel e Power BI

Sub MeuRelogio()
    If Inicio = True Then
        With wshMsg
            .Range("A1").Value = VBA.Time()
            Application.OnTime VBA.Now() + VBA.TimeValue("00:00:01"), "MeuRelogio"
            
            If VBA.CStr(VBA.Format(.Range("A1").Value, "hh:mm:ss")) = VBA.CStr(VBA.TimeValue("07:00:00")) Then
                If .Range("C1").Value2 = "DDDD" Then
                    .Range("C1").Value2 = "AAAA"
                Else
                    .Range("C1").Value2 = "CCCC"
                End If
            ElseIf VBA.CStr(VBA.Format(.Range("A1").Value, "hh:mm:ss")) = VBA.CStr(VBA.TimeValue("19:00:01")) Then
                If .Range("C1").Value2 = "AAAA" Then
                    .Range("C1").Value2 = "BBBB"
                Else
                    .Range("C1").Value2 = "DDDD"
                End If
            End If
        End With
  End If
End Sub

Sub IniciarRelogio()
    Inicio = True
    Call MeuRelogio
End Sub

Sub PararRelogio()
    Inicio = False
End Sub