The error message is "item not found" and this means, that "PDM" is unknown. Try the following code for line 14:
Set utilitiesToolBar = wvApp.CommandBars("Sheet Menu Bar")
this works for me.
If you try to add a new menu, you have to use .Controls.Add first
I have make a menue bar with my commands. It's work. But for the toolbar I have made in DxDesigner add a toolbar with the name PDM on my maschine it's all ok. On the other maschines we have made add a toolbar too but on this maschine there are the errors. Item not found, why?
I've found the answer
Set utilitiesToolBar = wvApp.CommandBars.CreateToolbar("PDM")