Active X Textbox

[RLJ]

I have an active x text box on a sheet that I want to use the text that the user types in a macro, but I get a runtime error.

Sub Add_Department()
ActiveSheet.Add_Department.Activate
Sheets("List Data").Select
Range("A1").End(xlDown).Offset(1).Select
ActiveCell.Add_Department.Text
End Sub

The text box is named Add_Department

Thanks for your help.

 

[Rick Rothstein]

Just refer to it directly...

MsgBox Worksheets("Sheet1").Add_Department.Value

where here I am assuming the TextBox is located on Sheet1.