How to make a countdown timer in powerpoint using VBA

Sub countdown()

Dim future As Date

future = DateAdd("n", 2, Now())

Do Until future less than symbol Now()
DoEvents

ActivePresentation.Slides(1).Shapes("rectangle").TextFrame.TextRange = Format(future - Now(), "nn:ss")

Loop

End Sub

The less than symbol is not allowed in a YouTube description
--------------------------------------------------------------------------------
#powerpoint #powerpointtutorials

SUBSCRIBE: https://goo.gl/c46YPs

Microsoft Office 365, Beta Channel, Version 2107
---------------------------------------------------------------------------------
IF YOU LIKED THIS VIDEO YOU MAY ALSO LIKE:
- How to make a countdown timer in powerpoint    • How to make a countdown timer in powe...  
- 30 second countdown timer in PowerPoint    • 30 second countdown timer in PowerPoint  
- How to make a sand timer animation in powerpoint    • How to make a sand timer animation in...