something akin to

ans = Inputbox(value)

With worksheets("Sheet2")
.Cells(.Cells(Rows.Count,"A").End(xlUp).Row+1,"A") .Value = ans
End With

--
HTH

Bob Phillips

"Tempy" wrote in message
...
Hi, i need to insert a value into a cell in a different worksheet to the
one that i am working in.
I need to start at A1 and go down to the end of the list and insert the
input box value in the next empty space.
Could somebody please help with some code, thanks in advance.

Tempy

*** Sent via Developersdex http://www.developersdex.com ***