möchte wennn ich meine Mappe schließe
sämtliche Formatierungen löschen außer bei Scheets ("Start")bzw, scheets(1)
mein Ansatz funktioniert nicht,
was mache ich falsch??
Begründung: Mappe ist über 3MB groß (war mal 6MB)
jede Menge Formatierung.
beim Starten stze ich die Formatierung neu (funktioniert)
möchte die Mappe kleiner machen
Sub SheetsClear()
Dim wks As Worksheet
Dim st As String
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> wks("Start") Then
Cells.Select
With Selection
.HorizontalAlignment = xlGeneral
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Interior.ColorIndex = xlNone
End If
Next wks
End Sub
Danke im vorraus für Eure Mühe
gruß Michael