How can I amend where I get link updates from

[ghrek]

Hi
I have a macro as shown below and im updating links.

Issue is the workbook that it updating from will not always be 5555 but all different numbers.

Is there anyway I can change it to update to new name regardless of name after \BACKUP ?? but maybe from active workbook?

ActiveWorkbook.ChangeLink Name:= _
"T:\Passenger Accounts\SHARED\passacc\Excel\passacc\backup\5555\Week1.xlsm", _
NewName:= _
"T:\Passenger Accounts\SHARED\passacc\Excel\passacc\INPUT SCREENS\WEEK 1.xlsm" _
, Type:=xlExcelLinks