如何将excel vba界面置于前台

我的代码

我有以下代码,当单击ui上的按钮时,它将打开一个文件浏览器

Sub GetOpenFile()
    Dim fileStr As String

    On Error GoTo Error

    fileStr = Application.GetOpenFilename()
    If fileStr = "False" Then Exit Sub
    Workbooks.Open fileStr

    Exit Sub

    Error:
    MsgBox "Something went wrong or the file type/extension is wrong", vbExclamation, "Error"

    Exit Sub
End Sub

我的问题

选择文件后,它可以打开该文件。但问题是,ui窗口转到后台,新打开的文件出现在前台。用户总是需要最小化或查找ui才能继续执行其他活动。

我需要的

有没有什么方法可以让用户界面在打开文件后仍然保持在前面?