thank you very much ken,
by the way,,

Set mb = Application.CommandBars(1)
With mb.Controls
'all show filter
.Add Type:=msoControlButton, ID:=900, Befo=11
end with

I want to change the name with "all_sho_filt" and set always only text.

*** Sent via Developersdex http://www.developersdex.com ***