Visual Basic - POR FAVOR AYUDA EN CÓDIGO-

Tengo el siguiente código que me abre una ventana para abrir archivos *.doc, pues bien, si selecciono alguno me lo abre, pero si le doy a cancelar para que se cierre la ventana me da un error y me dice que no encuentra el archivo y me señala en el código fuente a los símbolos <>ºº, que es lo que pasa, donde esta el fallo?
Private Sub CommandButton1_Click()
With CommonDialog1
.DialogTitle = "BÚSQUEDA DE LIBROS DE FUTBOL"
.Filter = "LIBROS DE FUTBOL FORMATO EXCEL(*.xlt; *.xls)|*.xlt ; *.xls|"
.Flags = cdlOFNFileMustExist
.ShowOpen
If .Filename <> °° Then
End If
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Open (.Filename)
Set ApExcel = Nothing
End With

Hola, si le das a cancelar el commonddialog buscara el archivo q tenga en su filename, como esta vacio, te da Error.
Prueva asi : if Felename = " " then
end if
tambien puedes usar una funcion de error
saludos

Me dice que no se ha definido la variable.

Prueba asi...

With CommonDialog1
.DialogTitle = "BÚSQUEDA DE LIBROS DE FUTBOL"
.Filter = "LIBROS DE FUTBOL FORMATO EXCEL(*.xlt; *.xls)|*.xlt ; *.xls|"
.ShowOpen
If .Filename <> "" Then
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Open (.Filename)
Set ApExcel = Nothing
End If
End With