I Need edge open url

[ercan celikoglu]

this vba macro code sucessfull
Sub OpenEdge()
Dim edgePath As String
Dim edgeUrl As String

' Set the path to Microsoft Edge executable file
edgePath = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"

' Set the URL that you want to open in Microsoft Edge
edgeUrl = "MrExcel"

' Open Microsoft Edge with the specified URL
Shell edgePath & " " & edgeUrl, vbNormalFocus
End Sub

but I need
Sub SGKBORÇSORGU4D()
Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "Kullanıcı Giriş Ekranı"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.userLogin_basvuru_tcKimlikNo.Value = "11872049530"
.document.all.userLogin_basvuru_isyeriKodu.Value = "7"
.document.all.userLogin_basvuru_sistemSifre.Value = "246530"
.document.all.userLogin_basvuru_isyeriSifre.Value = "784512"
End With
End Sub

Sub SGKV24D()
Set xd = CreateObject("internetexplorer.application")
Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "T.C. Sosyal Güvenlik Kurumu"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.kullaniciIlkKontrollerGiris_username.Value = "11872049530"
.document.all.kullaniciIlkKontrollerGiris_isyeri_kod.Value = "7"
.document.all.kullaniciIlkKontrollerGiris_password.Value = "246530"
.document.all.kullaniciIlkKontrollerGiris_isyeri_sifre.Value = "784512"
End With
End Sub

Sub VİZİTE4D()
Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "Vizite Giriş Sistemi"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.kullaniciAdi.Value = "11872049530"
.document.all.isyeriKodu.Value = "7"
.document.all.isyeriSifresi.Value = "784512"

End With
End Sub
I need open edge pls help me not open ie
I am not good speak english pls help me I need code open url edge pls help me ty all.

 

[Scott Huish]

I don't know what the rest of your code is doing, but you can do it like this, replace my example of Google with your URL:

CreateObject("Shell.Application").ShellExecute "msedge.exe", "https://google.com", , "open", 1