Function MappaTallózás()
    Dim fd
    Set fd = Application.FileDialog(4)
    With fd
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count = 0 Then
            MappaTallózás = ""
        Else
            MappaTallózás = .SelectedItems(1)
        End If
    End With
End Function