Excel VBA / VSTO - How to loop through pages?

Question

In Excel worksheet what is the code to loop through pages? Not worksheets but pages in one worksheet.

Answer 1

What do you mean pages?  There is one page, or sheet.  Do you mean ranges?  What are you trying to do?

---

Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

Answer 2

I am not so sure about it. Try this one.

Dim x, y
For Each x In ActiveSheet.PageSetup.Pages
         y = y + 1
Next
MsgBox y

Answer 3

By pages I mean what you get when you click the print preview button. I have added shape objects in every page. I need to loop through each pages and find out how many shapes each page contains.

Answer 4

Thanks. This works perfectly in Excel VBA. Do you know how to do this in Excel VSTO (VB.NET)? I tried the following code based on your one,

        Dim x, y
        For Each x In Globals.ThisAddIn.Application.ActiveSheet.PageSetup.Pages
            y = y + 1
        Next
        MsgBox(y)

I get the error message "Unable to cast transparent proxy to type 'System.Collections.IEnumerable'.". Do you know what it is the issue here please?

Answer 5

In C#,

int x = 0 ;     
foreach (dynamic y in Globals.ThisAddIn.Application.ActiveSheet.PageSetup.Pages)
    x ++ ;
System.Windows.Forms.MessageBox.Show( x.ToString()); 

Works fine with me.

I do not use VB.NET.

Regards

Answer 6

Thanks.