Reply to thread

Message: [QUOTE="Peter T, post: 6397471"] Forgot to include "cls.gsWBname = sWBname" here's the normal module code again, Class1 code as before it is again Sub test2() Dim sWBname As String Dim v Dim cbr As CommandBar Dim ctr As CommandBarControl Dim cls As Class1 sWBname = ActiveWorkbook.Name Set mColCls = New Collection For Each v In Array("Row", "Column", "Cell") Set cbr = CommandBars(v) For Each ctr In cbr.Controls Select Case ctr.ID Case 296, 297, 3183, 3185, 3187 Set cls = New Class1 Set cls.gCtrl = ctr cls.gsWBname = sWBname mColCls.Add cls, v Debug.Print ctr.ID, ctr.Caption, v Exit For End Select Next Next End Sub [/QUOTE]