Okay -- put these lines right before your transferspreadsheet line
Dim stamp As String
stamp = Month(Date) & Day(Date) & Year(Date)
Then, to date stamp the spreadsheet, you do this:
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Month End On Hold", "\\usnfs0\RoyerD\2008...