Execute显示工作簿方法

小鹿别撞啦

我发现FileDialog(msoFileDialogOpen)有个问题，Execute显示工作簿在多选工作簿状态时会把已选择的多个工作簿一次全部显示出来，我想实现Execute逐个显示工作簿→关闭工作簿→删除工作簿，有什么方法吗？
Sub FileDialog()
    Dim fd As FileDialog
      With Application.FileDialog(msoFileDialogOpen)
       .Title = "请选择文件"
        .AllowMultiSelect = True '多选
        .InitialFileName = "C:\Users\User\Desktop\数据"
        .Filters.Clear
        .Filters.Add "Excel表格", "*.xlsx;*.csv"
        .FilterIndex = 1

        If .Show = -1 Then

            For i = 1 To .SelectedItems.Count   '
                .Execute '打开工作簿
                msgbox .SelectedItems(i)

                ActiveWorkbook.Close 0 '关闭工作簿
                Kill .SelectedItems(i)  '删除刚关闭的工作簿
            Next

        End If

    End With
End Sub