Multipage on a userform
 

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

Multipage on a userform
 

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
--------------------


HTH


--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807
View this thread: http://www.excelforum.com/showthread...hreadid=379050

Multipage on a userform
 

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


--
HTH

Bob Phillips

"browie" wrote in message
...
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

Multipage on a userform
 

Thanks For your help

Greg Brow
"bhofsetz" wrote in
message ...

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
--------------------


HTH


--
bhofsetz
------------------------------------------------------------------------
bhofsetz's Profile:
http://www.excelforum.com/member.php...o&userid=18807
View this thread: http://www.excelforum.com/showthread...hreadid=379050