Форма для ввода, поиска и редактирования таблицы excel

Me.cmdbtnSave.Enabled = Not FindedFlag

With ComboBox2
.Clear
'.AddItem Range("D10:AH10").Value - ???
.AddItem Range("D10").Value
.AddItem Range("E10").Value
.AddItem Range("F10").Value
.AddItem Range("G10").Value
и т.д.
.ListIndex = -1
End With

ComboBox2.List = [D10:G10].Value

With ComboBox2
For i = 4 To 34
.AddItem Cells(10, i)
Next

.List = Application.Transpose(Range("D10:AH10"))

ComboBox2.Column = [D10:G10].Value

Private Sub UserForm_Initialize()
    Label5.Caption = ActiveSheet.Name
    With ComboBox1
         .Clear
         .Style = fmStyleDropDownList
         For iRow = 11 To Cells(Rows.Count, 3).End(xlUp).Row Step 2
             .AddItem Cells(iRow, 3)
         Next
         '.ListIndex = -1
    End With
    With ComboBox2
         .Clear
         .Style = fmStyleDropDownList
         .Column = Range("D10:AH10").Value
         '.ListIndex = -1
    End With
End Sub
 
Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then SetTime
End Sub
 
Private Sub ComboBox2_Change()
    If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then SetTime
End Sub
 
Private Sub SetTime()
    With Columns(3).Find(ComboBox1, , xlValues, xlWhole)
         TextBox1 = Format(.Cells(1, ComboBox2.ListIndex + 2), "Long Time")
         TextBox2 = Format(.Cells(2, ComboBox2.ListIndex + 2), "Long Time")
    End With
    'Можно и через Cells + ComboBox1.ListIndex + ComboBox2.ListIndex
End Sub