VBA Before close - Check External links

no one

i found two macros whic would satisfy my needs, but i do not know how to combine it
here is one before_close
Private Sub Workbook_BeforeClose(Cancel As Boolean)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
a = MsgBox("Do you know that you have external links", vbYesNo)<o></o>
If a = vbNo Then Cancel = True<o></o>
End Sub

and second, external links found
Sub external_links()

Dim rngExtLink As Range

Set rngExtLink = Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False)

If Not rngExtLink Is Nothing Then

MsgBox "External Link found!"

Else
MsgBox "No external links found!"
End If
End Sub

how to write just one to solve problem

The Sub external_links() example you posted will not find external links.

The example at this link might work for you. It gives your user the option to list all external references or delete them.

http://www.exceltip.com/st/List,_ch...(links)_using_VBA_in_Microsoft_Excel/487.html

To run this before closing the workbook, add the code at the link above to standard code module
and add the code below to the ThisWorkBook module.

thx man
the link experiense some difficulties so i will check it later

tried it works, thx man