Private Sub UserForm_Initialize() txtLastValue.Text = Cells( _ Cells(Rows.Count, 1).End(xlUp).Row, 1).Text End Sub