Delete Page of a MultiPage
 

How do I remove pages from a MultiPage at run time? (The pages were added at
run time.)
This does not work for me.

Dim delpage As Page
For Each delpage In MultiPage1.Pages
If delpage .index 2 Then
MultiPage1.Pages.Remove delpage
End If
Next

T.I.A.

Geoff

Delete Page of a MultiPage
 

Hi,

This worked for me.

Dim delpage As Page

For Each delpage In MultiPage1.Pages
If delpage.Index 2 Then
MultiPage1.Pages.Remove delpage.Index
End If
Next

Cheers
Andy

Geoff wrote:
How do I remove pages from a MultiPage at run time? (The pages were added at
run time.)
This does not work for me.

Dim delpage As Page
For Each delpage In MultiPage1.Pages
If delpage .index 2 Then
MultiPage1.Pages.Remove delpage
End If
Next

T.I.A.

Geoff

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Delete Page of a MultiPage
 

Hi Andy
Thanks for that.

Geoff

"Andy Pope" wrote:

Hi,

This worked for me.

Dim delpage As Page

For Each delpage In MultiPage1.Pages
If delpage.Index 2 Then
MultiPage1.Pages.Remove delpage.Index
End If
Next

Cheers
Andy

Geoff wrote:
How do I remove pages from a MultiPage at run time? (The pages were added at
run time.)
This does not work for me.

Dim delpage As Page
For Each delpage In MultiPage1.Pages
If delpage .index 2 Then
MultiPage1.Pages.Remove delpage
End If
Next

T.I.A.

Geoff

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Delete Page of a MultiPage
 

Dim delpage As Page
For Each delpage In MultiPage1.Pages
If delpage.Index 2 Then
MultiPage1.Pages.Remove delpage.Index
End If
Next


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Geoff" wrote in message
...
How do I remove pages from a MultiPage at run time? (The pages were added
at
run time.)
This does not work for me.

Dim delpage As Page
For Each delpage In MultiPage1.Pages
If delpage .index 2 Then
MultiPage1.Pages.Remove delpage
End If
Next

T.I.A.

Geoff