Weekly I have to sort through 350 sheets and delete the ones that basically do not have any writing below cell 20. Is there a Macro code I could enter that deletes all worksheets that don’t have any values below row 20? If so could you help? This would take a lot of time off of this weekly task! Thanks!
Dim ws As Worksheet
Dim i As Long
For Each ws In ActiveWorkbook.Worksheets
If Application.WorksheetFunction.CountA(ws.Range("21:1048576")) = 0 Then
Application.DisplayAlerts = False
i = i + 1
Application.DisplayAlerts = True
MsgBox i & " sheets were deleted", vbOKOnly + vbInformation, "Sheets deleted"