On Saturday, January 12, 2013 1:55:22 AM UTC-8, Claus Busch wrote:
Hi Howard,



Am Sat, 12 Jan 2013 00:48:20 -0800 (PST) schrieb Howard:



Option Explicit

Sub AtoCPaste()

Range("A1,A3,A5").Copy

Sheets("January 2013").Range("C1000").End(xlUp).Offset(1, 0).PasteSpecial

End Sub



try:

Sub AtoCPaste()

Dim shName As String



With Sheets("Sheet1")

shName = Format(.Range("A1"), "MMMM YYYY")

.Range("A1,A3,A5").Copy

Sheets(shName).Range("C1000").End(xlUp).Offset(1, 0).PasteSpecial

End With

End Sub



Regards

Claus Busch

--

Win XP PRof SP2 / Vista Ultimate SP2

Office 2003 SP2 /2007 Ultimate SP2

Wow, what could be better than that? And when I see the solution it seems so simple.

I will include your name in credit for what appears to be "hands tied behind your back and blindfolded easy" for you when I post it in the other forum.
(And to my archives)

Thanks again.

Regards,
Howard