Hi Guy's,
I have a spreadsheet which runs a macro to move and copy all of the worksheet tabs into a new book. Once the information has moved I want to break all links in the workbook.
I have been using the following commands which were recorded in a macro:
ActiveWorkbook.BreakLink Name:="H:\Doc Program\DOC PROGRAM.xls", Type:= _
xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\Lions Den GP Calculator.xls", _
Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\New Car Delivery Book.xls", _
Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\New Car Order Book.xls", Type _
:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\Stock Level Movements.xls", _
Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\Used Car Delivery Book.xls", _
Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\Wholesale Buy Book.xls", Type _
:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Admin\Smcash\CMBK CURRENT MONTH.xls", _
Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\Phone & Floor Log Stats.xls", _
Type:=xlExcelLinks
Unfortunately it doesn't seem to work and says RunTime Error 1004
Method 'Breaklink'of Object'_Workbook'Failed
If you could offer some suggestions to combat this problem, I would be most appreciative...even if there is a quick method of breaking all links.
Thanks.
Michael.
I have a spreadsheet which runs a macro to move and copy all of the worksheet tabs into a new book. Once the information has moved I want to break all links in the workbook.
I have been using the following commands which were recorded in a macro:
ActiveWorkbook.BreakLink Name:="H:\Doc Program\DOC PROGRAM.xls", Type:= _
xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\Lions Den GP Calculator.xls", _
Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\New Car Delivery Book.xls", _
Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\New Car Order Book.xls", Type _
:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\Stock Level Movements.xls", _
Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\Used Car Delivery Book.xls", _
Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\Wholesale Buy Book.xls", Type _
:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Admin\Smcash\CMBK CURRENT MONTH.xls", _
Type:=xlExcelLinks
ActiveWorkbook.BreakLink Name:="H:\Doc Program\Phone & Floor Log Stats.xls", _
Type:=xlExcelLinks
Unfortunately it doesn't seem to work and says RunTime Error 1004
Method 'Breaklink'of Object'_Workbook'Failed
If you could offer some suggestions to combat this problem, I would be most appreciative...even if there is a quick method of breaking all links.
Thanks.
Michael.