copy and paste from text boxes

I need to copy information from 8 textboxes into an excel sheet. I need the
information copied across a row and each item from each textbox needs to be
copied into a seperate cell. I also need to be able to copy this information
into the next empty row. Anyone know how to do this?

Next row in column A

nextrow=cells(rows.count,"A").end(xlup).row+1

Assigning data:

Cells(nextrow,"A")=textbox1.value
Cells(nextrow,"B")=textbox2.value
etc

You should qualify with w/sheet name

With worksheets("Sheet1")
nextrow=.cells(rows.count,"A").end(xlup).row+1
.Cells(nextrow,"A")=textbox1.value
etc
end with

HTH

"enyaw" wrote:

> I need to copy information from 8 textboxes into an excel sheet. I need the
> information copied across a row and each item from each textbox needs to be
> copied into a seperate cell. I also need to be able to copy this information
> into the next empty row. Anyone know how to do this?