Gemme regneark som CSV fil i en oprettet mappe

Rem VBA-kode anbringes i ThisWorkbook
Public Sub gemHvertArk()
Const gemmesImappe = "C:\Users\peter\Desktop\Ny mappe\minMappe\"

Dim ark
    For Each ark In ActiveWorkbook.Sheets
        arknavn = ark.Name
        Sheets(arknavn).Copy

        ActiveWorkbook.SaveAs Filename:= _
        gemmesImappe & "_" & arknavn & ".csv", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
       
        ActiveWorkbook.Close
    Next ark
End Sub

Du får points.

Jeg havde dog formuleret opgaven lidt forkert.

Jeg vil nemlig gerne give de filer jeg gemmer følgende navn:

Navnet på projektmappen + navn på arket

De skal så gemmes i den mappe, du hjalp mig med at oprette før.

Jeg har løst det :-)

Fint du fik det løst..

Har du i øvrigt et forslag til, hvis jeg kun vil have fem ud 6 regneark kopieret og gemt?

Const undtagelsen = "NavnPåArkDerIkkeSkalMed"
..
..
For Each ark In ActiveWorkbook.Sheets
        arknavn = ark.Name
        If arknavn <> undtagelsen Then
            Sheets(arknavn).Copy

            ActiveWorkbook.SaveAs Filename:= _
            gemmesImappe & "_" & arknavn & ".csv", FileFormat:= _
            xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
       
            ActiveWorkbook.Close
        End If
    Next ark