Error Message When running code but not stepping through it.

[Guest]

I'm attempting to use VBA to add a Command Button to a Worksheet. When I step
through the code (using F8) it works fine. However, when I simply try to run
it, Excel crashes and I get the error:

The instruction at '0x650e7624' referenced memory at '0x053c831c'. The
memory could not be read.

Any idea what is going on?

 

[Ron de Bruin]

Hi Jared

If you are using Excel 97 then try this

Try to Change the takefocusonclick property to false of the button
This is a bug in Excel 97

 

[Guest]

Ron,

I'm using Excel 2002. I should have wrote that in the first post. Sorry.

 

[Ron de Bruin]

I don't see your code but this is working for me for Sheet1

Sub test()
Dim WS As Worksheet
Dim Btn As OLEObject
Set WS = ThisWorkbook.Worksheets("Sheet1")
With WS
Set Btn = .OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Left:=.Range("C3").Left, Top:=.Range("C3").Top, _
Width:=100, Height:=30)
End With
Btn.Object.Caption = "Click Me"
Btn.Name = "YourButton"
With ThisWorkbook.VBProject.VBComponents(WS.CodeName).CodeModule
.InsertLines .CreateEventProc("Click", Btn.Name) + 1, _
vbTab & "If Range(""A1"").Value > 0 Then " & vbCrLf & _
vbTab & vbTab & "Msgbox ""Hi""" & vbCrLf & _
vbTab & "End If"
End With
End Sub

 

[Guest]

I don't know why, but when I changed the location of it in my code it worked
fine.