Multipage control on Userform

[Chas17]

cmdU1PA is an activex Button from controls toolbar, located on a worksheet.
cmdU1PA click event code:

Private Sub cmdU1PA_Click()

Application.ScreenUpdating = False

Range("U1P").Activate

For x = 1 To 7
frmAudit.MultiPage1.Page1.Caption = ActiveCell.Offset(x, 0)
Next x

Application.ScreenUpdating = True

frmAudit.Show

End Sub

MultiPage1 is on the Userform "frmAudit"
MultiPage1 has 7 pages Page1...Page7
The code above loops thru the 7 cells below the active cell named U1P.
Is there a way to get
frmAudit.MultiPage1.Page1.Caption = ActiveCell.Offset(x, 0)
to loop thru the pages 1 to 7, i.e. pageX ??


Thanks,
Chas

 

[CraigM]

frmAudit.MultiPage1.Pages(x-1).Caption = ActiveCell.Offset(x, 0)

(x-1) is because the first page is 0, not 1.

 

[Chas17]

Thanks, I brain dumped the starts at 0. Thanks again

the loop works great now, sure beats

frmAudit.MultiPage1.Page1.Caption = ActiveCell.Offset(1, 0)
frmAudit.MultiPage1.Page2.Caption = ActiveCell.Offset(2, 0)
frmAudit.MultiPage1.Page3.Caption = ActiveCell.Offset(3, 0)
frmAudit.MultiPage1.Page4.Caption = ActiveCell.Offset(4, 0)
frmAudit.MultiPage1.Page5.Caption = ActiveCell.Offset(5, 0)
frmAudit.MultiPage1.Page6.Caption = ActiveCell.Offset(6, 0)
frmAudit.MultiPage1.Page7.Caption = ActiveCell.Offset(7, 0)

thanks Craig,
Chas