Brisanje listov

[rick]

pozdravljeni,

zanima me kako bi v zvezku brisal vse liste, razen tistega , ki se imenuje "prenos".
kakšna bi bila koda?
za odgovor se zahvaljujem.
lp

[cedra]

Takole:

Koda: Izberi vse

Sub Brisi_liste()

Dim list As Worksheet

    Application.DisplayAlerts = False
        For Each list In Worksheets
            If list.Name <> "prenos" Then list.Delete
        Next
    Application.DisplayAlerts = True
    
End Sub

[rick]

najlepša hvala cedra,
točno to sem želel.
lp