Slette skjulte ark i excel

Worksheets("ark1").Visible = True
Worksheets("ark2").Visible = True

osv.

Tak. Hvor skal det skrives?

Denne sletter alle skjulte ark

Sub Button1_Click()
    For Each Skema In Worksheets
        If Skema.Visible = False Then Skema.Delete
    Next Skema
End Sub

Højreklik på arkfanen

Vis Programkode

Indsæt koden der


Sub VisSkjulteark()
Worksheets("ark1").Visible = True
Worksheets("ark2").Visible = True
End Sub

Alt + F8
Indstillinger
Her kan du tildele en genvejstast til makroen


Der kan

Vælg, vis, værktøjslinie, formula, tegn en knap, i popop vælger du ny, indsæt denne kode, imellem sub og sub end

    For Each skema In Worksheets
        If skema.Visible = False Then
            If MsgBox("Ønsker du at slette " & skema.Name & vbCrLf & "Er du sikker ?", vbYesNo + vbQuestion) = vbYes Then
                  skema.Delete
            End If
        End If
    Next skema

jlemming.: Det var smart. Smid et svar!

Rosco: Tak for hjælp. Valgte jlemming.

elegant løsning :-)

Velbekomme :-)