Ok I just tested it and nothing happens. Not even your line:

If aCC.ShowingPlaceholderText = True Then
MsgBox "Complete the 'Subject' field!", vbCritical

I assume this is a prompt for the user to fill in the subject field if it's blank? I tested it by leaving the field blank and clicking the macro button in the QAT and nothing happens. No prompt or saving of the file to the desktop. Do I need to change the sPath? It looked like you may have set it to a universal username/desktop so I just left the line of code as is. In fact, I left your entire code as is. So let me know if I was supposed to change anything.

If not, one other thing I can think of that may be causing this problem is that the Subject title was not entered by me typing it into the properties but rather me doing an Insert / Quick Parts / Document Properties / Subject selection from a drop down list because I had another text box later in the document that I wanted to repeat whatever I typed in that first subject field. So maybe because of that, the code you provided doesn't register that text box as an official "Subject" titled text box?