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
