Habe folgenden Code um in Versionen 2003 & 2010 zu speichern.
Option Explicit
Sub SpeichernUnter()
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & ("Sortierer KE" & " " & Sheets("Formel"). _
Range("A1")) & ".xls"
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & ("Sortierer KE" & " " & Sheets("Formel"). _
Range("A1")) & ".xlsm"
End Sub
Nun bekomme ich aber folgende Fehlermeldung
Habe selbst Version 2010
Wieso ? Warum ?
Gruß
Heinz