Increment Date by 1

Originally Posted by ShredDude

Your addOne procedure should probably be:

Sub addOne()
   Range("k1")=  Range ("K1") + 1
End Sub

That worked thanks.