I tried simple method of caption
Private Sub CommandButton_Click() With TextBox20 UserForm1.MultiPage1.Pages(0).Caption = .Text End W