hi,

With ThisWorkbook
..Sheets("Sheet1").Range("A1") = "x"
End With

'or

With ThisWorkbook
..Sheets("Sheet1").Range("A1") = Me.TextBox1
End With

isabelle

Le 2013-12-21 07:15, PraveenEXCEL a écrit :
can some one help me to get Code for adding datas into an excel sheet
from an user form