Multipage on a userform

[browie]

I have just put a mulitpage on the userform it has 8 pages, is it possible
to name the individual pages to the same as in cell a2 - a9 on worksheet
called teams.

Thanks in advance

Browie

 

[bhofsetz]

Put this in the code behind your userform.
I'm sure there is a way to loop through your pages and source range but
this is a quick solution for your situation.


Code:
--------------------
Private Sub UserForm_Initialize()
MultiPage1.Page1.Caption = Range("A2").Value
MultiPage1.Page2.Caption = Range("A3").Value
MultiPage1.Page3.Caption = Range("A4").Value
MultiPage1.Page4.Caption = Range("A5").Value
MultiPage1.Page5.Caption = Range("A6").Value
MultiPage1.Page6.Caption = Range("A7").Value
MultiPage1.Page7.Caption = Range("A8").Value
MultiPage1.Page8.Caption = Range("A9").Value
End Sub

 

[Bob Phillips]

Dim i As Long
For i = 0 To 7
Me.MultiPage1.Pages(i).Caption = Worksheets("teams").Range("A" & i +
2).Value
Next i

 

[Greg]

Thanks For your help

Greg Brow