Hi

I have a text box in excel and I need to send its contents to a cell or in an email. The current code displays an error.

Sub TextBox()

Activesheet.Range("A1") = TextBox 1.text

End Sub