copy sheet without links
 

I'm using code to copy a worksheet to another workbook - How do i break any
links on that sheet to the original workbook and just leave it as it looks.

Sheets("QUOTE").copy After:=Workbooks("RigCostTrack.xls").Sheets("Track er")

thanks

copy sheet without links
 

check out the delete links wizard:

http://support.microsoft.com/default...;en-us;q188449
--
Gary's Student


"Ciara" wrote:

I'm using code to copy a worksheet to another workbook - How do i break any
links on that sheet to the original workbook and just leave it as it looks.

Sheets("QUOTE").copy After:=Workbooks("RigCostTrack.xls").Sheets("Track er")

thanks

copy sheet without links
 

Ciara,

You are very close to the solution, if you add this next line of code
after teh one you have below, then i think we have ourselves a
solution

ActiveWorkbook.BreakLink Name:="*linkedbook*", Type:=xlExcelLinks

Were *linkedbook* is the name of the workbook that the sheet was
linking to

Hope this helps, if not please let me know

Kind regards,

Rob Turnbull
*Sortoutmyexcel.com*


--
Rob Turnbull
------------------------------------------------------------------------
Rob Turnbull's Profile: http://www.excelforum.com/member.php...o&userid=24278
View this thread: http://www.excelforum.com/showthread...hreadid=378928

copy sheet without links
 

ok - iv downloaded it - but still don't know what to do?

can i write it into the code to delete all links?

"Gary's Student" wrote:

check out the delete links wizard:

http://support.microsoft.com/default...;en-us;q188449
--
Gary's Student


"Ciara" wrote:

I'm using code to copy a worksheet to another workbook - How do i break any
links on that sheet to the original workbook and just leave it as it looks.

Sheets("QUOTE").copy After:=Workbooks("RigCostTrack.xls").Sheets("Track er")

thanks

copy sheet without links
 

im getting run time error 438

object doesn''t support this property or method

any ideas?

"Rob Turnbull" wrote:


Ciara,

You are very close to the solution, if you add this next line of code
after teh one you have below, then i think we have ourselves a
solution

ActiveWorkbook.BreakLink Name:="*linkedbook*", Type:=xlExcelLinks

Were *linkedbook* is the name of the workbook that the sheet was
linking to

Hope this helps, if not please let me know

Kind regards,

Rob Turnbull
*Sortoutmyexcel.com*


--
Rob Turnbull
------------------------------------------------------------------------
Rob Turnbull's Profile: http://www.excelforum.com/member.php...o&userid=24278
View this thread: http://www.excelforum.com/showthread...hreadid=378928

copy sheet without links
 

Maybe just copy|paste special|Values????

But that'll get rid of all the formulas.

Ciara wrote:

I'm using code to copy a worksheet to another workbook - How do i break any
links on that sheet to the original workbook and just leave it as it looks.

Sheets("QUOTE").copy After:=Workbooks("RigCostTrack.xls").Sheets("Track er")

thanks

--

Dave Peterson

copy sheet without links
 

yeah - I find if i copy|pastespecial|values and then |pastespecial|formats it
looks as I would like it.

Thanks for your ideas all,

Ciara

"Dave Peterson" wrote:

Maybe just copy|paste special|Values????

But that'll get rid of all the formulas.

Ciara wrote:

I'm using code to copy a worksheet to another workbook - How do i break any
links on that sheet to the original workbook and just leave it as it looks.

Sheets("QUOTE").copy After:=Workbooks("RigCostTrack.xls").Sheets("Track er")

thanks

--

Dave Peterson