This may work on a userform, but Andreas is adding the object to a worksheet.

I was thinking

With objOle
.Object.Caption = "test"
End With
Application.screenupdating = false
application.screenupdating = true



But I don't know if that would work. His code worked fine for me.

zz wrote:

try adding

me.repaint

after changing the caption

--
--
---
ZZ [underground]
Semi-musico,cuasi-poeta y loco

wrote in message
oups.com...
Hello,

i use following code to add a togglebutton to the sheet:
Set objOle =
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Toggl eButton.1", _
Left:=intLeft, Top:=intTop, Width:=intWidth, Height:=intHeight)
With objOle
.Object.Caption = "test"
End With

The problem is, that the caption doesn't update until, i click the
Button.
The same problem occurs with CommandButton.
Sometimes it works, but in most cases, this error occur.

Any ideas?
Thanks a lot,

Andreas


--

Dave Peterson