VBA Keeps failing. Run Time Error 1004

[vba_newbie83]

Hi
I have a model which is suppose to take a copy of each tab remove the formula and save down in a directory with a passport

The model works up to a point where it generate the folder but after it keeps failing

I have an old model with the same code and it works so I'm not sure what is so different from this one. I have done everything i believe exactly like the old file


Attached is my word document with error message. Also attached is an example of the spreadsheet

[Bob Phillips]

Try

Range("Sheet[APs]").Cells.Count