Sub CreateButton1()
Dim btn1 As Object
Set btn1 = ActiveSheet.Buttons.Add(1245, 16, 64, 16)
With btn1
.Caption = "AutoFocus On"
.Name = "AutoFocusBut"
.OnAction = "FocusOn"
End With
End Sub
Sub FocusOn()
Dim btn2 As Object
Set btn2 = ActiveSheet.Buttons.Add(1000, 16, 64, 16)
With btn2
.Caption = "Button2"
.Name = "Button2"
.OnAction = "RunButton2"
End With
ActiveSheet.Buttons("AutoFocusBut").Caption = "Changed"
End Sub
Sub RunButton2()
ActiveSheet.Buttons("AutoFocusBut").Delete
End Sub

Signature
---
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
>I need someone to give me a few buzz words and point me to some reference
> work so that I can get started.
[quoted text clipped - 21 lines]
>
> Craig
Craig Brandt - 21 May 2008 15:02 GMT
Bob:
After reviewing your code, I think part of my problem was that I was on a
different sheet when I tried to address the button plus I didn't use the
"Set" code.
Thanks much for the input.
Craig
> Sub CreateButton1()
> Dim btn1 As Object
[quoted text clipped - 52 lines]
> >
> > Craig