Help Needed Changing Link

[rexman]

After alot of trial and error I'm using the code below to change the links in my spreadsheet. The only problem is if when the dialogue box turns up and I press cancel, it still updates.

Is there away so that if I press cancel no changes are made?

Set ws = ThisWorkbook.Worksheets("Calcs")
OldLink = ws.Range("B4").Value
NewLink = ws.Range("B3").Value
ThisWorkbook.ChangeLink Name:=OldLink, NewName:=NewLink, Type:=xlExcelLinks

 

[jasonb75]

Assuming your cancel button is on a messagebox with Ok and Cancel

If MsgBox("your message", vbOKCancel) <> vbOK Then GoTo line1
Set ws = ThisWorkbook.Worksheets("Calcs")
OldLink = ws.Range("B4").Value
NewLink = ws.Range("B3").Value
ThisWorkbook.ChangeLink Name:=OldLink, NewName:=NewLink, Type:=xlExcelLinks 
Line1:

<!-- / message -->