Macro - Liste over ark i en projektmappe

Prøv med noger i denne stil:

For i = 2 to Sheets.Count
Sheets(i).Delete
Next i

Arket med piv ottabellen skal ligge først i nmappen.

eller

    For Each ark In ActiveWorkbook.Sheets
        arkNavn = ark.Name
    Next ark

så kan arknavn testes fdør det evt. slettes

Ifølge reglerne er det ikke tilladt at have 2 ens spørgsmål - http://www.eksperten.dk/spm/856946 - så du skal lukke det ene af dine spørgsmål (evt. med en henvisning til det andet)
/Be_Nice

Tak for feedback. Jeg har testet og kom frem med følgende, som bygger på supertekst's forslag:


Sub Slet_ark()
For Each ark In ActiveWorkbook.Sheets
        arkNAvn = ark.Name
        If arkNAvn = "OPDATER" Then
        Else
            If arkNAvn = "PIVOT_WC" Then
            Else
                If arkNAvn = "PIVOT_PO" Then
                Else
                    If arkNAvn = "PIVOT_PRODNR" Then
                    Else
                        If arkNAvn = "PIVOT_WC_PO" Then
                        Else
                            If arkNAvn = "PIVOT_WC_PRODNR" Then
                            Else
                                If arkNAvn = "PIVOT_WC_PO_PRODNR" Then
                                Else
                                    If arkNAvn = "PIVOT_WC_PRODNR_PO" Then
                                    Else
                                        If arkNAvn = "DATA" Then
                                        Else
                                        Sheets(arkNAvn).Delete
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    Next ark

End Sub

supertekst. Jeg tror dit svar var en kommentar, hvorfor jeg ikke kan give dig point. prøv igen og du får kredit.

Ok - du får et svar...

:-) ja - lang kredit......