Mike - very nice

In case the OP use a non-english version of Excel then this line may fail:

Set cbBar = Application.CommandBars("Worksheet Menu Bar")

Which could be replace with the indexnumber:

Set cbBar = Application.CommandBars(1)

Kind regards,
Dennis