+ Reply to Thread
Results 1 to 3 of 3

External links...

  1. #1
    Forum Contributor
    Join Date
    04-12-2006
    Location
    Morgan Hill CA
    Posts
    107

    External links...

    Is there any way to copy Sheet1 in WB1 to Sheet1 to in WB2 and prevent the "external links" from pointing back to the original file?

    code I have now is ...

    srcFile = WB1
    destFile = WB2
    sheetname = Sheet1

    ' activate the WB, select the sheet & copy all valid data
    Windows(srcFile).Activate
    Sheets(sheetName).Select

    ActiveSheet.Range("A1").Select
    ActiveSheet.Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy

    ' destination
    Windows(destFile).Activate
    ActiveSheet.Range("A1").Select
    Sheets(sheetName).Paste

    Thanks,

  2. #2
    Forum Contributor
    Join Date
    12-12-2005
    Posts
    667
    Sub Macro1()
    Windows("Book1").Activate
    Cells(1.1).Select
    Selection.Copy
    Windows("Book2").Activate
    Cells(2, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
    End Sub
    Best regards,

    Ray

  3. #3
    Forum Contributor
    Join Date
    04-12-2006
    Location
    Morgan Hill CA
    Posts
    107
    Thanks - I'll try that.

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1