Do you mean

Dim pge As Page

For Each pge In MultiPage1.Pages
MultiPage1.Pages.Remove pge.Caption
Next pge


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Bhuktar S " wrote in message
...
1. Multipage control has 2 pages as default. Is it possible to make as
0?
2. I want to add/remove pages from Multipage by Spinbutton.
3. Can I add or remove any particular page?

I use following codes:

Private Sub SpinButton1_SpinUp()
With MultiPage1.Pages
Add
End With
End Sub

Private Sub SpinButton1_SpinDown()
With MultiPage1.Pages
Remove (Page)
End With
End Sub

I defined the limits of values in Form Initialize as
Spinbutton1.Min=1
Spinbutton1.Max=10
Spinbutton.value=1 'For stsrting with only 1 page.

What I need is:
- with SpinUp, add pages max. 10 (which works fine but no limit)
- with SpinDown, remove pages from page10 upto including page2 (which
works fine, but can remove all and not removing in the sequence of last
page first)


---
Message posted from http://www.ExcelForum.com/