split excel projektmappe til flere mapper

Rem Koden anbringes i kildefilen under ThisWorkbook i VBA-vinduet (Alt+F11)

Const stiNyeFiler = "C:\Documents and Settings\pb.KHNBPB\Skrivebord\922381\"    '<----------- justeres
Public Sub splitFilen()
Dim ark As Worksheet, arkNavn As String
    Application.ScreenUpdating = False
   
    For Each ark In ActiveWorkbook.Sheets
        arkNavn = ark.Name
        Sheets(arkNavn).Select
        Sheets(arkNavn).Copy

Rem juster evt. filtype
        ActiveWorkbook.SaveAs Filename:= _
            stiNyeFiler & arkNavn & ".xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False

        ActiveWindow.Close
    Next ark

    Application.ScreenUpdating = True
End Sub

mange tak - det lykkedes mig dog ikke helt at afvikle koden. SaveAs giver problemer mht filetype - jeg bruger excel 2003

Du retter blot ".xlsx" --> ".xls"

hej - super ja jeg har fået det til at virke virke nu.