I bit off more than I can chew trying to offer a solution in another forum and no one seems to respond there.

Sheet1 cell A1 = 1/7/2013 (mmddyyyy)
How can I convert that value to "January 2013" and insert it in the copy code below to make:

Option Explicit
Sub AtoCPaste()
Range("A1,A3,A5").Copy
Sheets("Sheet3").Range("C1000").End(xlUp).Offset(1 , 0).PasteSpecial
End Sub

To read:

Option Explicit
Sub AtoCPaste()
Range("A1,A3,A5").Copy
Sheets("January 2013").Range("C1000").End(xlUp).Offset(1, 0).PasteSpecial
End Sub

Other A1 entries may be different months in 2013.
Sheets named January 2013 thru December 2013 already exist in the workbook.

Thanks,
Howard