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