Sub AddADay() Dim dtInitialDate As Date dtInitialDate = DateAdd("d", 1, dtInitialDate) Debug.Print dtInitialDate End Sub