My guess from reading the code would be in this line
Set oDocBank = Documents.Open(ThisDocument.Path & "\ Test Bank.Docm", , , False, , , , , , , , False)
is the link, so try changing the name Test Bank.Docm to the name of your document.