bloqueo formulario

tengo el siguiente codigo que se ejecuta cuando en un
formulario hago click en "examinar", el codigo me
despliega un navegador donde escojo la ruta para exportar
archivos, mi problema es que cuando escojo la carpeta y
doy aceptar excel queda bloqueado (es como sise quedara
escribiendo o calculando algo)... sabe alguien porque
puede pasar esto?

muchas gracias

pd.. el codigo fue una adptacion de un ejemplo
suministrado por Hector M



Private Sub BROWSE_Click()
'Application.ScreenUpdating = True
Dim Directorio As String
seleccion:
Directorio = ObtenerDirectorio("Selecciona un
directorio...")

If Directorio = "" Then GoTo seleccion Else GoTo dato
mensaje:
MsgBox "¡ NO se ha seleccionado ningún directorio !!!"

dato:
'Application.ScreenUpdating = False
Sheets("BASE").Range("D1") = Directorio
Sheets("hoja4").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
End Sub




Function ObtenerDirectorio(Optional ByVal Texto As
String) As String
Dim Iniciar_en As InfoNavegar, _
RUTA As String, _
Directorio As Long, _
Buscar_en As Long, _
Largo As Integer, _
Seleccionado As String
Iniciar_en.IDRutaRaiz = 0&
If IsMissing(Texto) Or Texto = "" _
Then Iniciar_en.DlgTexto = "Selecciona un
directorio." _
Else Iniciar_en.DlgTexto = Texto
Iniciar_en.Devolver = &H1
Buscar_en = ExplorarDirectorios(Iniciar_en)
RUTA = Space$(512)
Directorio = BuscarDirectorio(Buscar_en, RUTA)
If Directorio Then
Largo = InStr(RUTA, Chr$(0))
Seleccionado = Left(RUTA, Largo - 1)
If Right(Seleccionado, 1) <> "\" Then Seleccionado =
Seleccionado
Else: Seleccionado = ""
End If
ObtenerDirectorio = Seleccionado
End Function