Private count As Long Private x As Long Private y As Long Private Sub Macro1() If count = 0 Then x = x + 1 y = 1 UserForm1.Textbox6.Text = ActiveSheet.Cells(y, x).Value count = count + 1 If count > 9 Then count = 0 End Sub