VBA Code to link spreadsheet data

[Tira]

I updated everything in column A, but the VBA code stops working for the "PTB" tabs towards the end. I need the name information to stay as is, so how do I get the code to complete all the tabs.

Here's where the code gets hung up at: "Set wst = SSS.Sheets(x(1) & " " & x(0))". I attached the updated Do Not Pay File with all A1 cells named.

Thanks!