Guess What ;-) the worksheets were grouped, as soon as I ungrouped them it
worked.

Thanks for all your help.

P

"Norman Jones" wrote in message
...
Hi P,

I cannot reproduce your error.

Running the code, if there are workbook links, the dialog is shown; if
not, no dialog is shown,

In either case, I do not encounter your error.


---
Regards,
Norman

"phuser" wrote in message
...
I still recieve the msg.
I'll post the entire macro, maybe it's something in the sequence.

Sub ClearSave()
'
'Retrieve file name to use for Save
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")

'If user specified file name, perform Save and display msgbox
If fileSaveName < False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlNormal

MsgBox "Save as " & fileSaveName
End If


If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then
Application.Dialogs(xlDialogOpenLinks).Show
End If


Sheets("PA01").Select
Range("C7").Select

End Sub

"Norman Jones" wrote in message
...
Hi P,

Try:

Application.Dialogs(xlDialogOpenLinks).Show


---
Regards,
Norman


"phuser" wrote in message
...
I would like to create a Macro that brings up the edit links dialogue
box, every week the reference to a different workbook
needs to be changed, if I go through the record macro, of course the
workbook I chose in the record is the one it changes to. I just need
the dialogue box to appear and the user can choose the workbook they
wish to link.

Thanks