Apologies for replying to my own thread.

But I managed to fix my own problem.

I renamed Sheet3.range("M3") to Format(Sheet3.Range("M3"), "yyyy-mm-dd") and it worked perfectly.