Excel VBA Open File (manejo de errores)

Estoy tratando de explicar un caso cuando el usuario no encuentra un archivo para abrir:

Dim fn As String
fn = Application.GetOpenFilename("All Files,.", 1, "Select a file", , False)

If fn = False Then
    Exit Sub
End If

Esto hace lo que quiero cuando no se elige un archivo.

Pero cuando el usuariohace Elija un archivo, esta instrucción If crea un error. ¿Alguien puede decirme la forma correcta de lograr esto?

Respuestas a la pregunta(3)

Su respuesta a la pregunta