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