Isoliamo le prestazioni svolte dalle postazioni medicalizzate, sempre partendo dal foglio bianco.

Ah, dobbiamo fare un pulsante che cancelli tutto.

Fatto.

Sub DeleteAll()
    Cells.Select
    Selection.Delete Shift:=xlUp
    Sheets("Foglio5").Select
End Sub

Facilissimo.

---

Ora studiamo un pulsante per eliminare i grafici.

Sub deleteCharts()
For Each elemento In Charts
    Sheets(elemento.Name).Select
    ActiveWindow.SelectedSheets.Delete
Next
End Sub

---