Public NameForm as string
Private Sub ComboBox1_Change()
    NameForm = me.name ‘Запоминаем имя формы
    Test  ‘ Запуск другой процедуры
End sub

Sub Test ()
    For i2 = 1 To ThisWorkbook.VBProject.VBComponents.Count ‘ вычисляем номер нужной UserForm
       If ThisWorkbook.VBProject.VBComponents(i2).Name = NameForm Then
          Exit For
       End If
    Next

    Dim TempForm As Object   ' переменная для временной формы
    Dim NameActCont as string ‘ ' переменная для имени активного контрола

    Set TempForm = ThisWorkbook.VBProject.VBComponents(i2) ' Засовываю в переменную нужную UserForm
    NameActCont = TempForm.ActiveControl.Name ' Вот тут и происходит беда. 438 ошибка 
 End sub