I got this code from a a gast user of a different forum. "Volker"
I did modify it a little but seam not be able to get the loop started at "A2" rather then "A1".
Dim datStart As Date
Dim datEnd As Date
Dim d As Date