PDA

View Full Version : Group Cut and Paste



Slicemahn
01-30-2007, 10:00 AM
Hi Everyone!


My question is around copying and pasting worksheets from one workbook to another. I have put together a macro doing this but I run into a problem with the links that exist in the original workbook:

Here's my code. I am not certain if the Copy.PasteSpecial Destination code would be more effective. One caveat: My original workbook contains links to other workbooks.

Private Sub Courier()
Sheets(Array("Dailies", "Weekly", "En", "Su", "TB", "BB" "CaS", "Em" _
, "Frd", "Fre", "FreE", "TT", "CC", "Bi", "CTDE "DE", "CTF").Select
Sheets("Dailies").Activate
Cells.Select
Selection.Copy
ChDir "S:\SOM\SOX\2007\Distributed"
Workbooks.Open Filename:="S:\SOM\SOX\2007\Distributed\S.O.X Report Jan 07.xls"
Sheets(Array("Dailies", "Weekly", "En", "Su", "TB", "BB", "CaS", "Em" _
, "Frd", "Fre", "FreE", "TT", "CC", "Bi", "CTDE", "DE", "CTF")).Select
Sheets("Dailies").Activate
ActiveSheet.PasteSpecial Paste:=xlValues
End Sub


Any suggestions on how I can have the S.O.X report as a flat file would be greatly appreciated!

Slice