No acepta valor del ComboBox después de llamar a un Formulario

Buenos días a todos.

Desde un formulario1 y a través de un ComboBox voy a otro Formulario2 o Formulario3

El problema surje cuando vuelvo al Formulario1, y es que no me acepta de nuevo el valor

marcado por primera vez, ej. Formulario2

Adjunto el fichero para que veais más claro el problema.

Gracias anticipadamente

Ensacamo

Código Formulario 1

Private Sub ComboBox1_Enter()
Dim UltimaFila As Integer
On Error Resume Next
ComboBox1.Clear
Sheets("Hoja1").Select
Sheets("Hoja1").Activate
UltimaFila = Range("A1").End(xlDown).Row
For a = 1 To UltimaFila
    Dato = Cells(a, 1)
    ComboBox1.AddItem Dato
Next
End Sub
Private Sub ComboBox1_Change()
On Error Resume Next
If ComboBox1.ListIndex = 0 Then
UserForm1.Hide
UserForm2.Show
Else
UserForm1.Hide
UserForm3.Show
End If
End Sub[/HTML]

Código Formulario 2

Código Formulario 3

Prueba Formularios.xlsFetching info...