You can't cledar the textbox after each one, else you will just fill the
arry (apart from th first cell) with nothing.

Private Sub TextBoxEnterData_Change()
For Each Cell In Worksheets("Data Sheet").Range("b44:j79")
cell.Value = TextBoxEnterData.Value
Next Cell
TextBoxEnterData.Value

End Sub


--
HTH

Bob Phillips

"Sprad-Dog" wrote in message
...
I need help with a function... I'm trying to enter several data
entries(integers) from a 'User Form' into a range of cells. The entries
need
to go from (B44:j79) one at a time - clearing the entry from the 'User
Form'
[textbox] after each entry. I can get the data in the first cell (B44),
but
it will not advance to the next cell down - or clear the entry after I hit
the <enter key. Here is what I have already:

Private Sub TextBoxEnterData_Change()

Worksheets(2).Select

For Each Cell In Worksheets("Data Sheet").Range("b44:j79")
Range("B44").Value = TextBoxEnterData.Value

If Cell.Value < 0# Then
Cell.Value = Null
End If

Next Cell

End Sub

Can you please help me out??

Thanks!