Macro to save as .xlsm

[Audiology]

In the midst of a multi-year research project, I have migrated from Excel 2003 to Excel 2010. My original data file name/save macro read as follows:

\Public Sub SAVE_WORKBOOK()
ThisFile = Range("SDC!H60").Value
ActiveWorkbook.SaveAs Filename:="C:\POSE DATA 2006-7\" & ThisFile
End Sub

The macro no longer works as it saves to the old 2003 file type .xls which is rejected by 2010 because it contains other macros.

In the process of data transfer, using 2010, I need this macro to name the file but specify save as file type .xlsm.

Any guidance is appreciated.

 

[VoG]

Try

Public Sub SAVE_WORKBOOK()
ThisFile = Range("SDC!H60").Value
ActiveWorkbook.SaveAs Filename:="C:\POSE DATA 2006-7\" & ThisFile & ".xlsm", FileFormat:=52
End Sub

 

[Audiology]

Peter,

Many thanks. Your mod. worked perfectly


roy