Need help w/ variable savefile with specific date format

Hey everyone out there. This may be a simple problem, but as of yet the answer has eluded me:

I'm trying to save a file by using a cell reference that updates with the current day's date in the format "MyFileMMDDYY" (no spaces). I'm using the following code (Thanks to another post on this board for the code sample, though I cannot find the message again to give proper credit!):

Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

I've tried making cell A1 =today() , then custom formatting the cell as "C:\MyFilePath\MyFile"MMDDYY , which returns the correct file path (and format)into the cell, but when I attempt to run the macro, I receive an error. I've also tried actually typing in the correct date format (with the above cell custom formatting), and the macro works with this.

I think the issue is getting past the formatting. I cannot figure out a way to input a =today() function into a cell, and read the *formatted* value into another (I get Excel date values). If I can do this, I think I'll be set.

Any suggestions?

Thanks;
- Thomas