I need a VBA resolution to save a workbook as a certain name.

EX: I have workbook ONE.XLS open and need it to be saved as ONE082508A.XLS
where "ONE" is the original name, "082508" is the date it is being saved and
"A" is derived from a cell within the workbooks, say cell A1.

Can someone please help me with this?