Paste Is Failing

[Ark68]

I am trying to use this code:

With Worksheets("MasterWKSH")
            .Cells.Copy
                With Worksheets("CUE")
                    .Cells.Paste
                End With
        End With

To copy the contents of Worksheets("MasterWKSH") to Worksheet("CUE"). The copy is made, but the paste fails.

 

[RoryA]

Worksheets("MasterWKSH").Cells.Copy Destination:=Worksheets("CUE").Range("A1")

</pre>

 

[Ark68]

Wow... that was so much more efficient! Worked like a charm!
I noticed that the format was carried over ... row heights were the same, but not the column widths. Is there a way that the column widths can be carried over as well Rory?

 

[RoryA]

Why don't you just copy the sheet if you want an identical copy?

You could try

Worksheets("MasterWKSH").Cells.Copy
with Worksheets("CUE").Range("A1")
.Pastespecial xlpasteall
.pastespecial xlpastecolumnwidths
end with

</pre>

 

[Ark68]

Thanks Rory for he reply and suggestion.

Why don't you just copy the sheet if you want an identical copy?

The new worksheet isn't really identical. The source worksheet has been filtered, and only the filtered data needs to be carried over to the destination worksheet.

I included your code ... and two issues:
1) it isn't copying over the graphical elements (logo)
2) it pastes the data and cell formatting, however, when the .pastespecial xlpastecolumnwidths is executed, it clears the worksheet of the data. The formatting and column widths are still there, but no data.