Private Sub UserForm_Initialize() Dim iCounter As Integer For iCounter = 1 To 5 Controls("txt" & iCounter).Text = iCounter Next iCounter End Sub