Greg,

This assumes page labels in first sheet first column.

Private Sub UserForm_Initialize()
Dim lCounter As Long
With MultiPage1
For lCounter = 0 To .Pages.Count - 1
.Pages(lCounter).Caption = Sheets(1).Cells(lCounter + 1, 1)
Next lCounter
End With
End Sub

Robin Hammond
www.enhanceddatasystems.com

"Greg" wrote in message
...
Hi all

I am using the multipage option on a userform. It has 8 pages in it and I
would like to have the names of each page to represent a certain cell
value.

Is this possible?

Thanks Greg