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