Multipage label caption

[Ron Mann]

Hi All

Is there anyway to set the label name of a tab on a multipage to equal a
worksheet cell value when the userform and multipage are initialised.

 

[Jacob Skaria]

Ron,

Somthing like this. Index 0 denotes the first tab, 1 for second tab and so
on..If you want to set the labels from a continuous range for all tabs; then
assign the caption within a loop.

Private Sub UserForm_Initialize()
Me.MultiPage1.Pages(0).Caption = Worksheets("Sheet1").Range("A1")
End Sub

If this post helps click Yes

 

[Ron Mann]

Hi Jacob,

Thanks for the reply. It was of great help.

I found last night that the following code also worked.

UserForm2.MultiPage1.Page1.Caption = Worksheets("GENERAL").Range("c1")

Mine might be a little clumsy but got there in the end.

Thanks again.

Ron