Hallo Zusammen!

Ich möchte lediglich am aktuellen Tabellenblatt sämtliche Formatierungen löschen.

Mein Code wäre eigentlich ganz simpel, aber irgendwas mache ich falsch.

Code: 

Sub Format_entfernen()

'Alles auswählen
Cells.Select

'Mit Auswahl arbeiten
With Selection

    .ClearFormats

End With

End Sub