Como puedo enlazar dos combobox en formularios de Excel

Si tendo dos combobox

1. Departementos

2 Municipios

Pero el código que tengo en el departamentos es:

Private Sub cbx_departesa_Change()
    Dim IndiceDepa, IndiceMuni, i As Integer
    IndiceDepa = cbx_departesa.ListIndex + 1
    cbx_municipio.Clear
    With Sheets("Municipioesa")
        For i = 5 To .Range("A" & Rows.Count).End(xlUp).Row
            If Cells(i, 1).Value = IndiceDepa Then
                cbx_municipio.AddItem Cells(i, 3).Value
            End If
        Next i
    End With
End Sub

Y en el formulario tengo en ek evento initialize esto

Private Sub UserForm_Initialize()
    Me.cbx_departesa.RowSource = "Depart_esa!b4:b17"
End Sub

Al darl ejecutar al principio y si eligia un departamento me cargaba los munipios de cada departamento

Pero cuando le volví a dar ejeutar ya no me funciono

Quisiera saber cual es el error.