schaltfläche mit excelfunktion

ich hab folgende prozedur benutzt, um eine symbolleiste zu erstellen.

Private Sub neue_symbolleiste()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Call DeleteCmdBar
Set oBar = Application.CommandBars.Add( _
Name:="TT1", _
temporary:=True, _
Position:=msoBarTop)
oBar.Visible = True

With oBar
.Left = 0
.Top = 100
.Visible = True
End With

Set oBtn = oBar.Controls.Add
With oBtn
.FaceId = 70
.Caption = " Befehl"
.OnAction = "Befehl"
End With
End Sub

jetzt möchte ich noch eine weitere schaltfläche einfügen namens "speichern". als .onAction soll aber die exceleigene speichernfunktion genutzt werden, damit ich keine eigene schreiben muss. wie ist das möglich???

Danke im voraus