Private Sub on the fly
 

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....:)

Private Sub on the fly
 

Hi Michael,

See Chip Pearson's page on VBE programming at;

http://www.cpearson.com/excel/vbe.htm


---
Regards,
Norman



"michael v" wrote in message
...
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....:)

Private Sub on the fly
 

Thanx a lot....seems to be just what I needed...


"Norman Jones" wrote in message
...
Hi Michael,

See Chip Pearson's page on VBE programming at;

http://www.cpearson.com/excel/vbe.htm


---
Regards,
Norman



"michael v" wrote in message
...
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....:)