macro - Save in .xls format/to specific location/name from entered data/show message

This is an input form using Template Wizard to store the data in the database sheet.
Half of the users of this form use Excel 2010 and half use 2003.

What I'm trying to do is:
(1) name the file from the data entered (E17 & B19) to make the file name consistent;
(2) save (SaveAs) all the files to a specific location (\\usershare\2012 XLS\);
(3) save (SaveAs) in ".xls" format for both 2010/2003 users should be able to view/edit
(4) disable compatibility check message
(5) show message ("xxxxx.xls has been saved in 2012 XLS folder") after saving


With the code below, the file is saved fine but the message won't show after saving:

Please Login or Register  to view this content.

I don't know what the problem is. Could you please help?

It will be good if you attach the sample workbook that you use along with this code so we can troubleshoot faster.

Is your file not in .xls format? Try zipping and then upload.