Hi GLT,

I tried your code but when I try to run it it comes up with a run-time
error
'5', Invalid Procedure Call or Argument. I am using MS Excel 2002.

Can you advise what might be causing this?

There is a small typo in the first line of each macro, change:

With Application.CommandBars("Formating")

to:

With Application.CommandBars("Formatting")


---
Regards,
Norman