Severing links to list names when moving sheets between workbooks

[Roger on Excel]

When I move sheets to another spreadsheet, is there a way to automatically
sever the links so that it doesnt keep asking about list names?


Can anyone advise of direct me?

Thanks,Roger

 

[john]

Roger,
see if this works for you.

Sub RemoveLinks()
Dim Link As Variant

With ActiveWorkbook

For Each Link In .LinkSources

.BreakLink Name:=Link, Type:=xlLinkTypeExcelLinks

Next

End With

End Sub