VBA选择文件界面，如果点取消出错

没有捆绑

    如题，我运行这段代码的时候如果选了文件没有任何问题，但是如果我在打开的对话框中点取消会提示“无效的过程调用或参数”，知道是哪行出问题了，现在的问题是怎么才能判定我实是不是选了文件呢？有请大神

Set FolderDialogObject = Application.FileDialog(msoFileDialogFilePicker) '创建一个文件选择对话框对象
    With Application.FileDialog(msoFileDialogOpen)
        .Title = "请选择文件" '对话框名称
        .Filters.Add "EXCEL2007文件", "*.xlsx", 1
        .Filters.Add "EXCEL2003文件", "*.xls", 2
        .InitialFileName = ThisWorkbook.Path '对话框默认显示路径
        .InitialView = msoFileDialogViewDetails '文件的默认排列方式
        .AllowMultiSelect = False '是否可多选
        '.Execute '可用直接打开文件
        .Show '显示选择窗口
        Set na = GetObject(.SelectedItems(1)) '创建工作薄对象
    End With


已经解决：If .SelectedItems.Count < 1 Then Exit Sub 加上这句就可以了