Hyperlink based on control

  • Thread starter Thread starter Mike
  • Start date Start date
This is what I use.
"http://maps.msn.com/home.aspx?strt1=" & strAdd & "&zipc1=" & strZip &
"&cnty1=0"

Private Sub Map_Click()

Dim strMap As String
Dim strAdd As String
Dim strZip As String
strAdd = Me.Address
strZip = Me.Zip_Code
strMap = "http://maps.msn.com/home.aspx?strt1=" & strAdd &
"&zipc1=" & strZip & "&cnty1=0"
Application.FollowHyperlink strMap


End Sub
That's my code for a map button.
the msn full web address is:
http://maps.msn.com/home.aspx?strt1=1 Microsoft
Way&city1=Redmond&stnm1=WA&zipc1=981052&cnty1=0

I just use street address and zip.
Good Luck,
Eric
 
Back
Top