Trying to Simplify Saving a file from A template

I have searched and searched but have not found the answer for what I am trying to do. I have created a template to be used by my employees so they can get a snapshot of their weekly settlement(estimated only) after expenses etc.. are done. I have provide a link to the template(with erroneous dollar amounts) so that can be used for testing. What I am trying to do after lets say Trip Number and Dispatch date have been entered is to click on File>Save As and have the file show up as example: EstPay062511.xls whereas the 062511 would be the date of dispatch plus 7 days without the slashes. I have several things and keep coming up with run time errors or am asked to save the file as a macro embedded file which I do not want. Be advised I am new to using Excel and think I have done a good job on the template and I am just trying to tweak it to make easier for my drivers to use.

Est_Pay_Test_template.xlt

Cross Posted:http://www.mrexcel.com/forum/showthread.php?t=639000

The following is the code I'm trying to use:

Sub cmd_SaveToC_Drive()


Dim strPath As String
Dim strFolderPath As String
Dim fileSaveName As Variant

strFolderPath = "C:\Users\Thor\Desktop\Testing Folder\"
ThisFile = (Sheets("Trip1").Range("B8").Value & "_" & "EstPay" & ".xls")

fileSaveName = Application.GetSaveAsFilename(InitialFileName:=strFolderPath & ThisFile)
If fileSaveName = False Then Exit Sub
ThisWorkbook.SaveAs filename:=fileSaveName

End Sub