Is it possible to create this using code - not just writing the code below

Private Sub TextBox1_Change()
Cells(6, 18).Value = Application.Sheets("Sheet1").TextBox1.Text
End Sub

.....but to put this code in as code using other code....:)