VBA code werkt niet meer.

[Atwist]

Goedemorgen,

Heb hieronder een VBA code die in Excel 2003 wel werkt maar niet in Excel 2010, kan dit en hoe is dit op te lossen?

(VBA code ooit eens gekregen van HSV)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 With ThisWorkbook
 .SaveCopyAs "W:\Archief MAP\Excel bestanden\test.xls"
 End With
End Sub

[edmoor]

Office 2010 heeft meerdere typen Excel bestanden.
Maak van .xls eens .xlsm (Werkboek met macro's)

[Atwist]

Inderdaad .xlsm werkt wel hier had ik zelf ook achter moeten komen.

Dankje.