How do modify the following code below so that the value in texbox1 will also
be inserted in sheet5 cell "A1"

Set LastRow = Sheet2.Range("a100").End(xlUp)

LastRow.Offset(1, 0).Value = TextBox1.Text


--
kk