Okay let's try completely readding the code:

1.Press Alt+F8 on your keyboard
2.Clear the macro name box and type NewFile in the blank box provided
3.Select the Create option
4.In between the Sub NewFile() and End Sub copy and paste the following code:

ThisWorkbook.SaveAs Filename:="\\mspm1bnas04\westc4\Statements_Sent\Aug\" & Range("A1").Value & ".xlsm"
Note I changed the xls to xlsm to see if that would make a difference

5.Exit out of the Visual Basic Window
6.Press Alt+F8 again and this time select the NewFile macro
7.Select Run