Enviar datos a una celda de varios combobox

Hola
Tengo un un userform con varios combobox (al rededor de 10), quiero que al seleccionar los combobox me envíe lo seleccionado en él a unas determinadas celdas de la hoja de excel
Yo tengo que hacer una búsqueda con los nombres de los combobox de tal manera que determine la fila y en la columna siguiente colocar el contenido de su correspondiente combobox, algo muy parecido hago con los checkbox
el código que uso para los checkbox es:
Private Sub marcar()
Dim ctl As Control
Dim mytext As String
Dim ctrl As Control
Dim buscar As String
buscar = 0
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.CheckBox Then
            If ctrl.Value = True Then
            On Error Resume Next
            buscar = ctrl.Caption
            fil = Cells.Find(What:=buscar, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                        False).Row
                Sheets("hoja1").Range("d" & fil).FormulaR1C1 = "x"
            End If
        End If
    Next
End Sub
Pero no se como hacerlo para los combobox, ¿sabiendo qué lo que debe buscar es el nombre de el y así determinar la columna y después enviar lo seleccionado en el combobox
alguna sugerencia?