Macro to print from Sheet payment advice BR1 to last sheet

[Howardc1001]

I have written a macro to print from sheet "Payment advise BR1" to last sheet range "A1:H40"

where cell C9 is blank, then that sheet must not be printed

Where running the macro it print blank sheets


It would be appreciated if someone could kindly amend my code

Please Login or Register  to view this content.

[mohadin]

Please Login or Register  to view this content.

[Howardc1001]

Thanks for the help. Code works perfectly

It would be appreciated if you could amend code so that each sheet fits on one page

I have tried to do this, but get a run time error

Please Login or Register  to view this content.

[Howardc1001]

I have attached sample data.

I have highlighted those sheet tabs to be printed in Red (cheque advise BR1 onwards) . Where C9 is blank, then that sheet is not to be printed


Kindly test and amend code

Please Login or Register  to view this content.

[Howardc1001]

I managed to resolve problem

See my code below

Please Login or Register  to view this content.

[mjr veverka]

? Why in the "For Next" loop every time turn off this (DisplayAlerts, ScreenUpdating) what has already been turned off once ?

Please Login or Register  to view this content.

[Howardc1001]

Thanks for the advise and Code mjr veverka

The Sheet Names are a combination of upper & lower case, for e.g. Payment Advice BR1

Kindly amend code