Обработка контролов на листе

Sub CreateOLE()
    Dim tWS2 As Worksheet
    Dim tWS As Worksheet
    Dim tSh As OLEObject
    Dim n As Integer, m As Long
    
    Set tWS = ThisWorkbook.Worksheets('Лист1')
    Set tWS2 = ThisWorkbook.Worksheets('Лист2')
    
    tWS.Select
    'цикл по колонкам с которыми работал пользователь
    For n = 1 To tWS.Rows(1).SpecialCells(xlCellTypeLastCell).Column
        'количество значений в колонке
        m = Application.WorksheetFunction.Count(tWS.Columns(n))
        'создание объекта
        Set tSh = tWS2.OLEObjects.Add(ClassType:='Forms.ComboBox.1', _
                  Link:=False, DisplayAsIcon:=False, _
                  Left:=100, Top:=20 + n * 30, Width:=140, Height:=18)
         'и установка его свойств
         With tSh
            If m Then .ListFillRange = tWS.Name & '!' & _
                      tWS.Range(Cells(1, n), Cells(m, n)).Address
            .Name = 'ComboBox_Col' & n
            .Border.Color = vbYellow
            '.и т.д по желанию :)
        End With
    Next
    Set tSh = Nothing
    Set tWS = Nothing
    Set tWS2 = Nothing
End Sub

Sub ReadDataComboBox()
    Dim tWS2 As Worksheet
    Dim tSh As OLEObject
    Dim n, s
    Set tWS2 = ThisWorkbook.Worksheets('Лист2')
    For n = 1 To 5
        Set tSh = tWS2.OLEObjects(n)
        s = s + tSh.Name + ' = ' & tSh.Object & vbCr
    Next
    MsgBox s
    Set tSh = Nothing
    Set tWS2 = Nothing
End Sub

Sub CreateListCell()
    Dim tWS2 As Worksheet
    Dim tWS As Worksheet
    Dim n As Integer, m As Long, s As String
    
    Set tWS = ThisWorkbook.Worksheets('Лист1')
    Set tWS2 = ThisWorkbook.Worksheets('Лист2')
    
    'цикл по колонкам с которыми работал пользователь
    tWS.Activate
    For n = 1 To tWS.Rows(1).SpecialCells(xlCellTypeLastCell).Column
        'количество значений в колонке
        m = Application.WorksheetFunction.Count(tWS.Columns(n))
        'пишем название
        tWS2.Cells(n, 1) = 'Колонка ' & n
        If m Then
            ActiveWorkbook.Names.Add _
                Name:='nar' & n, _
                RefersToLocal:=tWS.Range(Cells(1, n), Cells(m, n))
            'создаем список
            With tWS2.Cells(n, 2)