Sheet1's R2 cell as May 1st, 2013
probably the comma, best to format the date as you go, like
Code:
strName = format(Sheet2.Range("F1").Value, "yyyymmdd")