I will be grateful for a pece of code to check if a workbook opened by the
running macro has any links
--
with kind regards

Spike

Hi Spike,

Try using the following function:

Function HasLink(WbName As String) As Boolean
HasLink = Not IsEmpty(Workbooks(WbName).LinkSources)
End Function

Sub TestHasLink()
On Error Resume Next
If HasLink("Book1.xlsm") Then
If Err = 9 Then Exit Sub 'If this workbook name is not valid

MsgBox "This Workbook has a link"
Else
MsgBox "No links"
End If
End Sub

Make sure that the parameter you pass as WbName is the name of an open
Workbook, and include the extension i.e .xls or xlsm...
--
A. Ch. Eirinberg


"Spike" wrote:

I will be grateful for a pece of code to check if a workbook opened by the
running macro has any links
--
with kind regards

Spike

Just to clerify, the funcftion will only tell you if that workbook is linked
to another workbook and not if another workbook is linked to it.
--
A. Ch. Eirinberg


"Howard31" wrote:

Hi Spike,

Try using the following function:

Function HasLink(WbName As String) As Boolean
HasLink = Not IsEmpty(Workbooks(WbName).LinkSources)
End Function

Sub TestHasLink()
On Error Resume Next
If HasLink("Book1.xlsm") Then
If Err = 9 Then Exit Sub 'If this workbook name is not valid

MsgBox "This Workbook has a link"
Else
MsgBox "No links"
End If
End Sub

Make sure that the parameter you pass as WbName is the name of an open
Workbook, and include the extension i.e .xls or xlsm...
--
A. Ch. Eirinberg


"Spike" wrote:

I will be grateful for a pece of code to check if a workbook opened by the
running macro has any links
--
with kind regards

Spike

Thank you very much for that works a treat
--
with kind regards

Spike


"Howard31" wrote:

Just to clerify, the funcftion will only tell you if that workbook is linked
to another workbook and not if another workbook is linked to it.
--
A. Ch. Eirinberg


"Howard31" wrote:

Hi Spike,

Try using the following function:

Function HasLink(WbName As String) As Boolean
HasLink = Not IsEmpty(Workbooks(WbName).LinkSources)
End Function

Sub TestHasLink()
On Error Resume Next
If HasLink("Book1.xlsm") Then
If Err = 9 Then Exit Sub 'If this workbook name is not valid

MsgBox "This Workbook has a link"
Else
MsgBox "No links"
End If
End Sub

Make sure that the parameter you pass as WbName is the name of an open
Workbook, and include the extension i.e .xls or xlsm...
--
A. Ch. Eirinberg


"Spike" wrote:

I will be grateful for a pece of code to check if a workbook opened by the
running macro has any links
--
with kind regards

Spike