Alle lege sheets verwijderen

[Senso]

Ik wil alle lege sheets, sheets die dus geen inhoud in alle cellen bevatten verwijderen met vba.

Sub DeleteBlankWorksheets () 'Update 20130830 Dim Ws As Worksheet On Error Hervat Volgende Application.ScreenUpdating = False Application.DisplayAlerts = False voor elk Ws in Application.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Vervolgens Ws.Delete End If Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

Nu staat dit op één regel. Is dat wel goed?

 

[edmoor]

Of dat werkt weet ik niet maar het is zo niet te lezen natuurlijk.
Verdeel dat netjes over meerdere regel en ook correct ingesprongen.

 

[Senso]

Werkt niet. Hoe dat verdelen moet, weet ik niet.

 

[edmoor]

Die code is totaal niet correct dus het heeft geen zin dat netjes in te delen.

 

[Senso]

Oké. Is denk ik gelukt met:

Sub DelMT()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
    If Application.CountA(ws.Cells) = 0 Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

Bedankt.

 

[edmoor]

Dat ziet er beter uit