Hi Flamingo,

You would encounter this problem if there were no data below cell D8.

This is because the instruction;

Selection.End(xlDown).Select

would then select the column D cell in the last row on the sheet and, then,
the instruction:

ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text

would be seeking to address a row below the last row - which is impossible.

For your test purposes enter some data in, say, cells D8:D9 and try again.


---
Regards,
Norman



"Flamingo" wrote in message
ups.com...
I began to study VBA just from yesterday. I strike in a program from
the book, the code is like this:

[code]:

Private Sub CommandButton1_Click()
Range("D8").Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select

ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text
ActiveCell.Offset(1, 0).Range("B1") = TextBox2.Text
ActiveCell.Offset(1, 0).Range("C1") = TextBox3.Text
ActiveCell.Offset(1, 0).Range("D1") = TextBox4.Text
ActiveCell.Offset(1, 0).Range("E1") = TextBox5.Text


End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub CommandButton3_Click()
TextBox1.Text = "88"
TextBox2.Text = "Michael"
TextBox3.Text = "123455"
TextBox4.Text = "1322"
TextBox5.Text = "Record for test"
End Sub

when I try to run it. it reports an error: Run time error '1004'
application-defined or object-defined error . When I debug it, it shows
something wrong with this sentence:
ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text. But after
doublecheck, I still can not find any problem. I copy it from the book
exactly.

Anybody's help is appreciated!