Copy worksheets

[Darren Smith]

Hi all

How can i copy worksheets from a workbook then keep the formulas but delete links to previous workbook?

I tried this but no luck.

Please somebody help

Dim astrLinks As Variant

astrLinks = wkbDest.LinkSources(Type:=xlLinkTypeExcelLinks)


With wkbDest.Sheets(6)
   .Select
   .Unprotect
   .BreakLink Name:=astrLinks(6), _
    Type:=xlLinkTypeExcelLinks

   .Protect
End With

 

[Darren Smith]

Sorry but I`ve declared the worksheet as a variable but still, it`s not working

 Dim wsDest As Worksheet
 
Set wsDest = Worksheets("Job Card with Time Analysis")
wkbDest.Activate

wkbDest.Sheets("wsDest").Cells.SpecialCells(xlCellTypeFormulas) _
    .Replace What:="[*]", Replacement:="", LookAt:=xlPart

 

[footoo]

 Dim wsDest As Worksheet

Set wsDest = Worksheets("Job Card with Time Analysis")
wkbDest.Activate

wsDest.Cells.SpecialCells(xlCellTypeFormulas) _
        .Replace What:="[*]", Replacement:="", LookAt:=xlPart

 

[NdNoviceHlp]

Have U tried using a collection to copy and paste your sheet(s)? Dave

 

[NdNoviceHlp]

Hmmm posted twice?

 

[Darren Smith]

Hi Footoo

This is the Workbook for you to look at

Dropbox - File Deleted - Simplify your life

www.dropbox.com