Thanks. It does go into A2 and so. However, I need the value in the text box to go into A1. Then I need the value/variable cleared then once another value is entered in the text box I want that value in A2 then cleared then A3 etc. Private Sub CommandButton1_Click() 'txtscore.Text = "" For i = 1 To 25 ' hours = Cells(i, "b").Value ' rate = Cells(i, "c").Value count = count + 1 score = txtscore.Text Sheet5.Cells(i, "a").Value = score txtcount = Sheet5.Range("B2") txtmean = Sheet5.Range("B3") txtstand = Sheet5.Range("B4") Next i End Sub
I can only open the door... I can't walk you through it.