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