This code  assumes you have a custom toolbar
with all your macros linked to control buttons on it:

Set c = CommandBars("NameOfCustomToolbar")

For Each b In c.Controls
strLong = b.OnAction
strShort = Right(strLong, Len(strLong) - InStrRev(strLong, "!"))
b.OnAction = strShort
Next b

c.Visible = True