Sub savebook()
Dim FPATH As String
FPATH = "T:\DEVELOPMENT\P134 MODULAR SIGNALLING\DEVELOPMENT\SPREADSHEETS\Production Scans\ILS Production Batch\Multi Aspect\"
ActiveWorkbook.SaveAs Filename:=FPATH & Range("G2").Value & ".XLSM", FileFormat:=52
End Sub
You have to set the fileformat to macro enabled.