' כתר סופרים - הפעלה שקטה ללא חלון פקודות שחור כלל!
Dim shell, edgeCmd, chromeCmd
Set shell = CreateObject("WScript.Shell")

' הרצה נסתרת (WindowStyle = 0) מונעת כל הבהוב או מסך שחור
On Error Resume Next
shell.Run "msedge --app=""" & "https://ais-dev-bhz4pldoe25qimj2uxq6yj-989646944460.europe-west2.run.app/" & """ --window-size=1380,920", 0, False
If Err.Number <> 0 Then
    Err.Clear
    shell.Run "chrome --app=""" & "https://ais-dev-bhz4pldoe25qimj2uxq6yj-989646944460.europe-west2.run.app/" & """ --window-size=1380,920", 0, False
End If
On Error GoTo 0