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.
Sub test1()
Debug.Print " Date Now "; " DaysToAdd " & " FutureDate"
Dim futureDate As Date
For i = 0 To 140 Step 14
futureDate = Date + i
Debug.Print Date & " " & i & " " & futureDate
Next i
End Sub