Url volgen na selectiebox

[galletje]

Beste Forum gebruikers,

Inmiddels al heel veel geleerd dankzij dit forum, echter loop ik nu tegen iets aan waar ik niet meer uitkom.
Op een formulier heb ik een selectiebox gemaakt welke bij selectie een boodschap geeft, hierna moet er bij het klikken op Ja een URL worden geopend, echter krijg ik een rara melding zie print screen.
Zie code wat ik gebruik hieronder.

Private Sub Waadi_Check_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "Doe de Waadi check?"
Style = vbYesNo + vbInformation + vbDefaultButton2
Title = "Waadi Check"


Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"
    Application.FollowHyperlink (URL), "www.mbs-group.nl", False
Else    ' User chose No.
    MyString = "No"
    
End If
End Sub

Ik snap niet waar deze melding vandaan komt, staat nu een 1 achter de URL???

Wie kan me hiermee helpen.

Thanks

John

 

[Tardis]

URL toevallig niet als hyperlink in je tabel gezet?
Zo ja, wijzig dat naar tekst.

Tardis

 

[galletje]

Tardis,

Nee ook niet is vaste URL zoals het er staat. raar he?

John

 

[OctaFish]

En hoe ziet je webstring er uit? Moet wel een volledig adres zijn, dus dit is fout: www.volkskrant.nl, maar dit is goed: http://www.volkskrant.nl

 

[rebmog]

Dit wordt veroorzaakt doordat er een fout zit in Application.Followhyperlink.

Application.FollowHyperlink (URL), "www.mbs-group.nl", False

moet worden

Application.FollowHyperlink "http://www.mbs-group.nl",, False

 

[OctaFish]

Je mag best een subadres toevoegen aan een bestaande link, maar daar mag dan natuurlijk niet nog een keer www. in staan. Dus dit is fout:

Application.FollowHyperlink url, "www.mbs-group.nl", True

en dit is correct

Application.FollowHyperlink url, "mbs-group", True

 

[galletje]

Rebmog en Michel,

Beide heeft me geholpen, raar dat VBA help daar niks over zegt. Maar ook dit is weer opgelost.

Thanks beide voor de hulp.

John