Hello I have this code and i'm receiving an error 424

Sub Auto_open()
Dim val As String

val = InputBox("Enter your Initials", "May I know your Name!")
Workbooks("CIP_report.xlsm").Sheets("Dashboard1").Range("D2") = val

Workbooks("CIP_report.xlsm").Sheets("Dashboard1").Range("L23").Activate

TextBox1.Activate <-------Error
TextBox1.Text = "" <-------Error

End Sub
I'm trying to have the textbox1 be selected and have the blinking cursor in the textbox after OK is pressed from the inputbox.

This code is in a module...