With Worksheet("Sheet1")
cLastRow = .Cells(Rows.Count,"A").End(xlUp).Row
.Range("A" & cLastRow+1).Value = Me.Textbox1.Text
End With


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Samick" wrote in message
...

Hello,

please, I need in Excel put value to textbox and while I click Command
button, it will fill in a cell. Next run should fill in cell one line
down. (first A1, second A2, third A3......). Please, can you write a
source code for it?

Thank you very much


--
Samick
------------------------------------------------------------------------
Samick's Profile:
http://www.excelforum.com/member.php...o&userid=16427
View this thread: http://www.excelforum.com/showthread...hreadid=277957