Object required (Error 424)

[ACommandLineKindaGuy]

This is weird: I have 4 command buttons (CommandButton1 thru CommandButton4) and 1 text box (TextBox1).
I get a 424 Error whenever I try to set a TextBox1 property such as TextBox1.Left

I ran a short sub to grab all the shape names in the active worksheet:

For Each Sh In ActiveSheet.Shapes
MsgBox Sh.Name
Next Sh

and it returned Shape objects including the TextBox1 name.

But, I try and type something like TextBox1.Left and I get no dropdown after typing the period like I do when typing a period after CommandButton1.

I've checked spelling and made sure I used a 1 (number) and not an l (el letter)

Any ideas????

Tia John

 

[ZVI]

Hi,
Use one of these:

Sub Test1()
  Dim Shp As Shape
  Set Shp = ActiveSheet.Shapes("TextBox1")
  MsgBox Shp.Left
End Sub
 
Sub Test2()
  Dim TBox As OLEObject
  Set TBox = ActiveSheet.OLEObjects("TextBox1")
  MsgBox TBox.Left
End Sub

Regards

 

[ACommandLineKindaGuy]

Thanks--yes, I did a permutation of that. So the problem is solved--but not very elegantly, and the underlying issue is still a mystery!!

 

[ZVI]

Is this more elegant?

Sub Test3()
   Debug.Print Sheet1.TextBox1.Left
End Sub

where Sheet1 is the code name of the sheet