Break Link cause Send Error Report
Rather than using Break Links you could remove the links
On the copy of Sheet4 try
Sub CleanUp()
Dim N As Name
Activesheet.Cells.Validation.Delete
Activesheet.UsedRange.Copy
Activesheet.UsedRange.PasteSpecial xlValues
For Each N In ActiveWorkbook.Names
N.Delete
Next
End Sub
Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup
|