copying worksheet to another workbook with a macro more than once

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I want to copy a worksheet to another workbook and break the link on the
orginal worksheet. I recorded a macro. but I can only do it once.
How can I did it several times?
 
Try something like:

Sub Macro1()
Windows("Book1").Activate
Sheets("rt").Copy Before:=Workbooks("Book2").Sheets(1)
Windows("Book1").Activate
Sheets("rt").Copy Before:=Workbooks("Book2").Sheets(1)
Windows("Book1").Activate
Sheets("rt").Copy Before:=Workbooks("Book2").Sheets(1)
Windows("Book1").Activate
Sheets("rt").Copy Before:=Workbooks("Book2").Sheets(1)
End Sub
 
Hi RF,

I used this recently, which I found in another posting:

With ActiveWorkbook
Links = .LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
.BreakLink Links(i), xlLinkTypeExcelLinks
Next i
End If
End With
 
Back
Top