Macro and not print a blank page?

Hi all,
I have the following in a workbook, Sub Printme is attached to a button on a worksheet where if check box 98 is ticked it will send ok to Sub Front35 and print worksheets back35 and front35. I have had to add another worksheet called back35A, the problem is I need to check before printing the following. If all cells G5 to G40 on back35A are empty Do Not Print back35A and just print back35 & front 35 if any cells G5 to G40 are not empty print back35, back35a and front35.

I hope I have explained this well enough.

If someone could help me out if this is possible and where the code goes it would be appreciated.


Sub Printme
If ActiveSheet.CheckBoxes("Check Box 98").Value = Checked Then
Front35 ' sub to print first sheet
End If
End Sub


Sub Front35()
'Day 35
Application.ScreenUpdating = False
Sheets(Array("back35", "front35")).Select
Sheets("front35").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("PrintMenu").Select
Application.ScreenUpdating = True
End Sub

Thanks Stephen

Please Login or Register  to view this content.

HTH

You can use the previous code and just move the "back35A" sheet before the "back35" sheet and it will print as you like, or you can use this code instead and it will print as you like as well.

Please Login or Register  to view this content.

Thanks your last code did the trick.... I did try moving the 35a like you suggested in your first code, but it still printed in the wrong order.

Thanks again