Question

I created a multipage form in excel vba 2010.
How can get the number of pages in this mulitpage?

Thanks,
blackmail

Answer 1

Try this:

Dim mulpage as Control, pge as Page, counter as Integer
For Each mulPage In Me.Controls
       If TypeName(mulPage) = "MultiPage" Then
           For Each pge In mulPage.Pages
               counter = counter + 1
           Next pge
       End If
Next

My code is in 2003. So for you, you need to reference the Form Page property explicitly using Dim pge As msforms.Page instead of Dim pge As Page for 2007, 2010…going forward.

References:

• http://support.microsoft.com/kb/155374

• http://www.ozgrid.com/Excel/free-training/ExcelVBA2/excelvba2lesson8.htm