I am getting an error with that formula, using your example date string, before I even try to do anything in VBA. The fragment that you called "middle part" works for me but does not match the formula above it (it adds "&1" in the middle).

Is there some reason that you want to insert a formula using VBA, instead of just calculating the date in VBA?

nburton=Capture.JPG