The caption property

Sub DA()
Dim myButton As Button
Set myButton = ActiveSheet.Buttons. _
Add(Left:=3, Top:=2, Height:=25, Width:=45)
myButton.OnAction = "DAmacro"
myButton.Caption = "DAmacro"
End Sub


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=148188