Multipage Control - problem with removing pages

[morse101]

Hi,

I am using Excel 2003 and am trying to get the hang of manipulating the Multipage Control at run-time. Adding extra pages as and when required poses no problem but Removing them does.

Typical example for a Multipage Control with 8 pages from which I would like to remove pages 3, 5 and 7 with the names XXX3, XXX5 and XXX7:

Sub RemovePages ()
Dim intSheetCount As Integer
Dim strCaption As String

For intSheetCount = 3 To 7 Step 2
strCaption = "Page" & intSheetCount
UserForm1.MultiPage1.Pages.Remove (strCaption)
Next intSheetCount

End Sub

Every time this routine is run it produces a Run - time error 5:
invalid procedure call or argument. As far as I can see the code appears to be OK ***except*** that I cannot get rid of the space immediately after the 'Remove' in

UserForm1.MultiPage1.Pages.Remove (strCaption)

I suspect that might be the problem but otherwise I am completely at sea. So any and all help will be gratefully received.

many thanks

M.