ActiveSheet.Shapes

[Carly]

I have got a text box on an excel spreadsheet that would like the end user to be able to type in the month Apr11, etc.

I would like this text box to be ready for input when the workbook is opened but the following selects it in Design Mode with the little white circles around it but I just want it ready for input.

Sub Autpen()
ActiveSheet.Shapes("txtMonth").Select
End Sub

Does anyone else have any ideas?

Kind Regards

Carly

 

[VoG]

How about

ActiveSheet.Shapes("txtMonth").Select
Selection.Characters.Text = InputBox("Enter Month", , Format(Date, "mmmm"))
Range("A1").Select

 

[VoG]

Or, without selecting anything

ActiveSheet.Shapes("txtMonth").TextFrame.Characters.Text = InputBox("Enter Month", , Format(Date, "mmmm"))