使用 `ThisWorkbook.Activate` 设置焦点并将 ThisWorkbook 的窗口置于前面，不起作用

代码
使用功能的目的是检查我桌面上的数字 xls 文件，如果找不到，则将Thisworkbook其放在前面。

问题
如果已经打开了工作簿，那么将 Thisworkbook 放在前面不起作用（仍在后台）并且不会引发代码错误。

问题
功能Get_Highest_Numeric_Name的原因虽然功能本身工作正常。

我尝试
过的尝试将 ThisWorkbook.Activate 替换为

AppActivate ((ThisWorkbook.Name) & " - Excel")

但是，我在 AppActivate 行收到了这个错误

无效的过程调用或参数

奇怪的是，如果我从代码窗口运行该代码，则不会引发先前的错误。
使用 AppActivate (ThisWorkbook.Name...) 的任何方式都不可靠，因为它需要在 Windows 系统上启用此选项（文件扩展名）。
感谢任何有用的评论和答案。

Private Sub Workbook_Open()
  If Len(Get_Highest_Numeric_Name("D:\Users\Waleed\Desktop\", "*.xls")) = 24 Then    'for Question on Stackoverflow
        MsgBox "File not found", vbCritical + vbMsgBoxSetForeground, "File not found"
        ThisWorkbook.Activate
        Exit Sub
     End If
End Sub


Function Get_Highest_Numeric_Name(strFold As String, Optional strext As String = "*.*") As String
    Dim arrD, lastName As String, lngNb As Double, El
    'Return all files name in an array
    arrD = Split(CreateObject("wscript.shell").Exec("cmd /c dir """ & strFold & strext & """ /b").StdOut.ReadAll, vbCrLf)
    If UBound(arrD) = -1 Then MsgBox "Nothing could be found in the path you supplied...": Exit Function
    arrD(UBound(arrD)) = "@@##": arrD = Filter(arrD, "@@##", False) 'Remove the last (empty) element
 
    For Each El In arrD   'iterate between the array elements
            If IsNumeric(Split(El, ".")(0)) Then
                'Compare the lngNb variable (initially 0) with the numeric value:
                If lngNb < CDbl(Split(El, ".")(0)) Then
                     'addapt lngNb like the bigger number
                     lngNb = CDbl(Split(El, ".")(0)): lastName = El
                End If
            End If
    Next
            Get_Highest_Numeric_Name = strFold & lastName 'Build the necessary path
End Function