What is wrong with this vba code

[dpaton05]

Sub Workbook_Open()
'Application.WindowState = xlMaximized
txtName.Value = "Type sheet name here."
End Sub

I am just trying to make a default value appear for a text box upon open of worksheet and it won't work and I don't know why.

 

[Michael M]

Is this what you mean ???

Sub Workbook_Open()
'Application.WindowState = xlMaximized
MsgBox Activesheet.name
End Sub

 

[dpaton05]

I want the text to be visible in the text box when the form is opened but it can be typed over.

 

[mikerickson]

Where is this textbox, in a userform?
If so, you could set the form's default value to "Type sheet name here." in the property window at design time.
Or you could use syntax like

UserForm1.txtName.Text =  "Type sheet name here."

If it is an activeX textbox, you could also set the Value property of the text box to "Type sheet name here."

 

[Michael M]

So, did my code do as required ?
If not, you need to be more specific.

You could also use....

Sub Workbook_Open()
'Application.WindowState = xlMaximized
Sheets(1).Shapes("TextBox 1").TextFrame.Characters.Text = "Type Sheet Name Here"
End Sub

 

[dpaton05]

This code gives me an error.


Sheets("home").Shapes("txtName").TextFrame.Characters.Text = "Type sheet name here."

 

[Michael M]

You didn't answer any of Mikes questions in post #4....They are relevent to getting the correct result ??

My answer won't work if it is NOT a worksheet TextBox as opposed to a VBA userform TxtBox !!!

 

[dpaton05]

Where is this textbox, in a userform?
If so, you could set the form's default value to "Type sheet name here." in the property window at design time.
Or you could use syntax like

UserForm1.txtName.Text =  "Type sheet name here."

It is an active x text box but this won't work Mike as I change the value within the value property then I add something into the text box. I have to save it when I close it then when i reopen it, the new contents are displayed.

 

[dpaton05]

Where is this textbox, in a userform?
If so, you could set the form's default value to "Type sheet name here." in the property window at design time.
Or you could use syntax like

UserForm1.txtName.Text =  "Type sheet name here."

If it is an activeX textbox, you could also set the Value property of the text box to "Type sheet name here."

It is an active x text box but this won't work Mike as I change the value within the value property then I add something into the text box. I have to save it when I close it then when i reopen it, the new contents are displayed.

 

[mikerickson]

Then then code in the Open event should be

Sheets("someSheet").txtName.Text =  "Type sheet name here."