Exit an empty workbook

[bradyj7]

It there,

I have a macro that loops through files in a folder and process them. The odd time it opens a workbook and it is empty and it crashes because what its looking for is not there. I'm looking for some code that says "If the worksheet is empty then exit sub."

thanks

 

[kpark91]

something like

If ws.UsedRange.Address = "$A$1" And s.Range("A1") = "" Then 'ws is a worksheet
...

gotten from
http://www.mrexcel.com/forum/showthread.php?t=22474

 

[VoG]

Worksheetfunction.CountA(Sheets("Sheet1").Cells)

will return zero if all the cells on the sheet are empty.