'Set Page = CreateObject(Shell("explorer microsoft-edge:" & url & ""))
'Set Page = CreateObject("Shell.Application").ShellExecute("explorer microsoft-edge:" & url & "")
'set Page = CreateObject(("Shell.Application").ShellExecute "microsoft-edge:")
CreateObject("Shell.Application").ShellExecute "microsoft-edge:" & url & ""
Set Page = CreateObject("Shell.Application").ShellExecute "explorer microsoft-edge:" & url & ""
Set Page = CreateObject("Shell.Application").ShellExecute "microsoft-edge:" & url & ""