Michael has a macro that prints a number of worksheets. Occasionally one or two of the worksheets to be printed may contain no data. He is looking for a technique to test whether a worksheet contains data, and then only print those worksheets.
There are several ways you can go about testing for an empty worksheet. Of course, it depends on what you really mean by “empty,” at least to a degree. For instance, if a worksheet has absolutely nothing in it-nothing in any cell of the worksheet-we could consider it empty. However, you might have a worksheet that contains some column headings that you added, but nothing except those headings. While Excel would consider the worksheet not empty, you might consider it empty for printing purposes.
Perhaps the easiest way to check if a worksheet is empty is to use the UsedRange object to deterrnine what is in the worksheet:
With ActiveSheet.UsedRange IsSheetEmpty = .Rows.Count = 1 And _ .Columns.Count = 1 And _ .Cells(1,1) = "" End With
Note that the UsedRange object consists of, well, the range of used cells within a worksheet. Thus, if the count of rows in this range is 1 and the count of columns in this range is 1, and there is nothing in the first cell of the UsedRange object, then the worksheet is probably empty.
Depending on the characteristics of your data, you may be able to shorten the code even more:
With ActiveSheet.UsedRange IsSheetEmpty = .Count = 1 And .Cells(1,1) = "" End With
In this version you are simply checking to see if the count of cells in the UsedRange object is 1 and if that particular cell is empty.
If you have a header row (or two) in your worksheet, then you can adjust this technique to however may rows and columns you have in those headers. For instance, if you have headers in the range A1:F4, then you might adjust the technique in this manner:
IsSheetEmpty = ActiveSheet.UsedRange.Rows.Count=4 _ AND ActiveSheet.UsedRange.Columns.Count=6
You don’t need to check the contents of A1 in this instance because you already know that it (and several other cells) contain information-your headers. You just want to ignore everything in those headers to determine if there is additional information in the worksheet.
If the worksheet is completely empty (no header information that you’ve added), you can use the CountA worksheet function to analyze the cells in the worksheet. If the result of the function is greater than zero, then the worksheet is not empty. For example, let’s say that the worksheet you want to analyze is specified by the object sht. You can use this technique in this manner:
IsSheetEmpty = Application.WorksheetFunction.CountA(sht.Cells) = 0
Of course, it is possible for a worksheet to contain items other than information in cells. If you suspect you will have these types of objects in a worksheet (things like AutoShapes, graphics, or embedded charts), then your testing for “emptiness” will need to be more complete. Each of these items are contained within collections that are accessible in VBA, and you can check the Count property for each collection to see if it is zero or not.