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.
--
Many Thanks

Ron

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


"Ron Mann" wrote:

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.
--
Many Thanks

Ron

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


"Jacob Skaria" wrote:

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


"Ron Mann" wrote:

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.
--
Many Thanks

Ron