How to access all pages one by one from the print area

[Wasif85]

Dear Team;

I have page setup which have 5 pages to print. I want to access the page which have no data and want to delete that page.. My logic is as fellow

>>> use code - tags <<<

dim count, a as integer
' count total no of print pages
count=sheet3.pagesetup.pages.count
for a=1 to count
   ' if page 3 is blank, delete ie

next

 

[vletm]

Wasif85
Few questions for You:
If You have five pages to print, then why do You ... count ... number of pages to print?
How do You know, if some page don't have any data?
Could You handle this by setting range which You would like to print?
Could You send a sample Excel-file, which shows Your challenge?