Excel Question

I have a new Excel question...going to reuse this thread.
I have an Excel file with many sheets. The number of sheets changes everytime so its not a set number. Each sheet has a unique name. At times there are sheets that end up completely blank. So I want to create a macro that will find all blank sheets, get their name and then display all these blank sheet names in a new sheet...

I started by testing with the following code just to see if I can get the names of blank sheets ... which does not work...
Any advise??

Code:

Sub AllSheets()
Dim ws As Worksheet
Dim col As Integer
For Each ws In ActiveWorkbook.Worksheets
  col = Application.WorksheetFunction.CountA(Range("A1:A5000"))
  If col = 0 Then
  MsgBox ws.Name
  End If
Next ws
End Sub

 

ISBLANK() ?

Check this here forum: http://www.mrexcel.com/forum/showthread.php?t=22474