Deleting workbook that may have dependancies

[dkuyper]

I would like to delete a workbook but am concerned that it has dependancies i.e. other workbooks linked to it. Is there a way to check for this?

 

[Sektor]

Sub ConnectionsTest()
    MsgBox "Book " & IIf(ThisWorkbook.Connections.Count > 0, "has", "does not have") & " connections"
End Sub

 

[dkuyper]

Hi Sektor,

Thanks for the reply. I have pasted this into VBA and tried to run the macro. I am getting a complie error method or data member not found on the ".connections" part. Any suggestions?

 

[Sektor]

This code works for me. What module did you insert it in?

 

[VoG]

This code works for me. What module did you insert it in?

It works for me too but I believe that the Connections property was added in Excel 2007.

 

[dkuyper]

Sorry Sektor, not an expert on VBA. I put it in "Thisworkbook". Did I need to set-up a new module?

 

[dkuyper]

It works for me too but I believe that the Connections property was added in Excel 2007.

Think that is my problem, we are still on Excel 2003

 

[Sektor]

Ah, yes. Connections property was added in Excel 2007. Sorry.

 

[dkuyper]

No problem, thanks any for you help guys. Much appreciated.

 

[VoG]

Maybe this in a regular module (not ThisWorkbook):

Sub ConnectionsTest()
Dim aLinks As Variant
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
    MsgBox "File contains links"
Else
    MsgBox "File doesn't contain links"
End If
End Sub