Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Sub InsertDates()
Dim datStart As Date
Dim datStop As Date
datStart = CDate("[blue]1/1/2000[/blue]")
datStop = CDate("[blue]12/31/2005[/blue]")
Do While datStart < (datStop + 1)
Debug.Print "INSERT INTO SomeTable (MyDate) VALUES (#" & datStart & "#)"
datStart = datStart + 1
Loop
End Sub