Bezug auf anderen Workbook

Private Sub CommandButton1_Click()
Me.Hide
Application.ScreenUpdating = False
Dim fn
fn = Application.GetOpenFilename(FileFilter:="Excel-Arbeitsmappen,*.xls", Title:="Bitte  _
Datei auswählen")
If fn = False Then
'Nothing
Exit Sub
End If
With fn
        If Worksheets("Übersichtsblatt").Range("A1").Value = "" Then
MsgBox ("Richtig")
End If
MsgBox ("Falsch")
End With
End Sub