counta gives the count of cells that are not empty.

do you have formulas in the cells that are returning empty strings? - then
those are not empty.

I don't see any reason it wouldn't work if the cells are actually empty.

demo'd from the immediate window:

Worksheets("Continuation sheet").Range("A8:K20").ClearContents
? Application.CountA(Worksheets("continuation sheet").Range("A8:K20"))
0
Worksheets("Continuation sheet").Range("B10").Value = 6
? Application.CountA(Worksheets("continuation sheet").Range("A8:K20"))
1

--
Regards,
Tom Ogilvy


Stuart Evans wrote in message
...
Tom
The code now prints the sheet even if there is no data in any of the
cells?

Stuart


"Tom Ogilvy" wrote in message
...
Private Sub Commandbutton1_Click()

if Application.CountA(Worksheets("continuation sheet").Range("A8:K20"))

0
then
Application.ScreenUpdating = False
Worksheets("continuation sheet").Visible = xlSheetVisible
Worksheets("continuation sheet").Printout
Worksheets("continuation sheet").Visible = xlSheetHidden
Application.ScreenUpdating = True
End if

End Sub

--
Regards,
Tom Ogilvy


Stuart Evans wrote in message
...
Tom
Thats Sorted it thank you.
Just one more what code do I need to check a range of cells say
A8:K20
in the same sheet?

Stuart


"Tom Ogilvy" wrote in message
...
if len(trim(Worksheets("continutation sheet").Range("B5").Text)) 0
then

has continuation mispelled.

if len(trim(Worksheets("continuation sheet").Range("B5").Text)) 0
then

--
Regards
Tom Ogilvy

Stuart Evans wrote in message
...
Tom
Nope cant get this working I get a Subscript out of range
error
when
I
click the button? Am I missing something here?

Stuart


"Tom Ogilvy" wrote in message
...
Private Sub Commandbutton1_Click()

if len(trim(Worksheets("continutation sheet").Range("B5").Text))

0
then
Application.ScreenUpdating = False
Worksheets("continuation sheet").Visible = xlSheetVisible
Worksheets("continuation sheet").Printout
Worksheets("continuation sheet").Visible = xlSheetHidden
Application.ScreenUpdating = True
End if

End Sub

--
Regards,
Tom Ogilvy

Stuart Evans wrote in message
...
Tom
Thanks for the reply however I cant seem to get this
working
can
you
explain where I put this code please.

Stuart


"Tom Ogilvy" wrote in message
...
if len(trim(Worksheets("continutation
sheet").Range("B5").Text))

0
then
Application.ScreenUpdating = False
Worksheets("continuation sheet").Visible = xlSheetVisible
Worksheets("continuation sheet").Printout
Worksheets("continuation sheet").Visible = xlSheetHidden
Application.ScreenUpdating = True
End if

--
Regards,
Tom Ogilvy


Stuart Evans wrote in message
...
Hi All
I have a workbook with a number of sheets one of which
is
hidden
and
called "continuation sheet" I have a command button on a
frontend
sheet
with
a macro attached. What i need to do is look at the sheet
named
"continuation
sheet" and if cell B5 is populated print the sheet.

Stuart