Links Braking Problem

Hi,
I have created one DashBoard and have to mail other recipients. Before sending mail I have to break the all links using below codes


Dim i As Integer
On Error Resume Next
astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For i = LBound(astrLinks) To UBound(astrLinks)
ActiveWorkbook.BreakLink _
Name:=astrLinks(i), _
Type:=xlLinkTypeExcelLinks
Next i

This codes are working my other files but not working for one file. This file have lot of sheets (About 35). IS that the problem ?

Someone know any strong coed to break links pls help me
Thanks