Try this one
Sub Delete_EmptySheets()
Dim sh As Worksheet 'Ron de Bruin, programming, 2002-12-28
For Each sh In ThisWorkbook.Worksheets
If Application.WorksheetFunction.CountA(sh.Cells) = 0 Then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End If
Next
End Sub

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Stitch45" wrote in message ...
What is the easiest way to check if the ActiveSheet isblank? I want to loop through the sheets collection and delete all empty
sheets.

thanks