I am adding buttons with the following code. They are active and
function but do not display. If I set them manually to "Text Only
(Always)" via the customize menu screen, they display fine. I'm using
XL2003.

I am at my wit's end trying to do this programmatically. What am I
missing? Thanks.

.Controls.Add Type:=msoControlButton, ID:=2949, Befo=2
With .Controls(1)
.Visible = True
.Caption = "ReadFile"
.OnAction = "thisworkbook.readfile"
End With