Use vba to write three timers in PPT, put them on three slides, time to August 1, 2027, August 1, 2025, and the remaining time on August 1, 2023, help me write a paragraph code...

Sub Timer1() Dim Time1 As Date Time1 = #8/1/2027# Range("A1").Value = DateDiff("d", Now(), Time1) End Sub Sub Timer2( ) Dim Time2 As Date Time2 = #8/1/2025# Range("A2").Value = DateDiff("d", Now(), Time2) End Sub Sub Timer3() Dim Time3 As Date Time 3 = #8/1/2023# Range("A3").Value = DateDiff("d", Now(), Time 3) End Sub