Hi

I have placed a textbox on a worksheet from the Controls toolbar.

How can I set the focus on the textbox when the workbook is opened. I can't
find a method to set the focus to this control.

Thanks

just a question.
you try the
ActiveSheet.Shapes("TextBox1").setfocus '--- ?

--
üdv:regards
L@ja


€žDZ€� ezt Ã*rta:

Hi

I have placed a textbox on a worksheet from the Controls toolbar.

How can I set the focus on the textbox when the workbook is opened. I can't
find a method to set the focus to this control.

Thanks

ActiveSheet.Shapes("TextBox1").setfocus '--- ?
That give me a 'Run-time error '438'
Object doesn't support this property or method
on my XL97. What version are you? Dave D-C

L@ja wrote:
just a question.
you try the
ActiveSheet.Shapes("TextBox1").setfocus '--- ?
--
üdv:regards
L@ja

„DZ” ezt írta:
Hi
I have placed a textbox on a worksheet from the Controls toolbar.

How can I set the focus on the textbox when the workbook is opened. I can't
find a method to set the focus to this control.

Thanks

Option Explicit
Sub Auto_Open()
Worksheets("sheet1").TextBox1.Activate
End Sub

In xl2003, I didn't have to select the sheet first.

If this doesn't work, try:

Option Explicit
Sub Auto_Open()
with worksheets("Sheet1")
.select
.TextBox1.Activate
end with
End Sub

DZ wrote:

Hi

I have placed a textbox on a worksheet from the Controls toolbar.

How can I set the focus on the textbox when the workbook is opened. I can't
find a method to set the focus to this control.

Thanks

--

Dave Peterson

Thanks for your responses. It's Excel 97.

I get 'Run-time error '438' with Activate. There doesn't seem to be a way to
do this with a Controls Toolbar textbox.

Regards

DZ

It worked ok in xl2003 for me.

But I don't have xl97 to test.

DZ wrote:

Thanks for your responses. It's Excel 97.

I get 'Run-time error '438' with Activate. There doesn't seem to be a way to
do this with a Controls Toolbar textbox.

Regards

DZ

--

Dave Peterson

In Module1:
Sub Auto_Open()
Sheets("Sheet1").TextBox1.Activate
End Sub

This works in my XL97 -- doesn't need sheet select.
I wonder what could be different? Dave D-C

Dave Peterson wrote:
It worked ok in xl2003 for me.
But I don't have xl97 to test.

DZ wrote:
Thanks for your responses. It's Excel 97.

I get 'Run-time error '438' with Activate. There doesn't seem to be a way to
do this with a Controls Toolbar textbox.

Regards

DZ

Maybe the user made a typing error????

Who knows?

Dave D-C wrote:

In Module1:
Sub Auto_Open()
Sheets("Sheet1").TextBox1.Activate
End Sub

This works in my XL97 -- doesn't need sheet select.
I wonder what could be different? Dave D-C

Dave Peterson wrote:
It worked ok in xl2003 for me.
But I don't have xl97 to test.

DZ wrote:
Thanks for your responses. It's Excel 97.

I get 'Run-time error '438' with Activate. There doesn't seem to be a way to
do this with a Controls Toolbar textbox.

Regards

DZ

--

Dave Peterson