- Code: Select all
ActiveWorkbook.saveas Filename:="C:\RaceSaves\" & Cells(1, 1).Value & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Easiest way to learn these things is to turn on the macro recorder, do the action you want the code for, stop the recorder and look at the code.
The example above will save a file named as the contents of cell A1 with a .xlsm extension into the directory C:\RaceSaves
If cell A1 contained Kempton 2.20 then you would get exactly what you want.
Kevin