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
--
jb


"Roger on Excel" wrote:

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