If WorksheetFunction.CountA(Sheet1.Cells) = 0 Then MsgBox "Worksheet is
blank."

Don't know much about charts ... <g

--

Vasant


"TKT-Tang" wrote in message
om...
Please show the VBA coding required in order to test for a blank
worksheet as well as a blank chart-sheet.
Regards.