Я думаю, должно быть так:
Private Sub Textbox1_Change()
Worksheets("worksheetname").Activate
TextBox1 = Cells(1,1).Text
End Sub
В «Ячейках ()» вы должны выбрать конкретную ячейку, которая содержит значение. Но если вы хотите использовать Excel в качестве базы данных, подумайте, подходит ли это инструмент, возможно, доступ будет лучше.