Kopier mange regneark fra en projektmappe til selvstendig projekm

prøv denne, den bruger navnene fra arkfanerne til at navngive filen.

Public Sub Dan_Mapper()
    Dim Ws As Worksheet, Sti As String
    Sti = ActiveWorkbook.Path
    For Each Ws In ActiveWorkbook.Sheets
        Ws.Copy
        ActiveWorkbook.SaveAs Filename:=Sti & "\" & Ws.Name & ".xls", FileFormat:=xlNormal
        ActiveWindow.Close
    Next
End Sub

Det var lige det der skulle til :-) mange tak for det

Skulle lige finde ud af hvordan point systemet virker :-)

Point er dine :-)

et svar;-))