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.

Please Login or Register  to view this content.

HTH

[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


--
HTH

Bob Phillips

"browie" <laptopgb@ihug.com.au> wrote in message
news:d8mtfl$sr2$1@lust.ihug.co.nz...
> 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
>
>

[Greg]

Thanks For your help

Greg Brow
"bhofsetz" <bhofsetz.1qmluh_1118768720.944@excelforum-nospam.com> wrote in
message news:bhofsetz.1qmluh_1118768720.944@excelforum-nospam.com...
>
> 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
>