Web URL Built Into Code is Opening a Tab per Field Instead of One Tab for All Fields....

[BrianExcel]

I am using code to generate a URL and open Chrome to navigate to that URL. However, what's happening now is that a tab within Chrome is being entered for each field I am passing *address, city, state, etc.) rather that 1 tab opening with a single URL.

The other complication, is that when I open Chrome manually and enter the same URL physically into the address box, the window opens just fine.

Any idea how I can stop that from happening? Here is the code.

Sub btnSubmitForDirections_Click()Dim sAddress As String, sCity As String, sState As String, sZip As String, sStartPoint As String
Dim eAddress As String, eCity As String, eState As String, eZip As String, sEndPoint As String


With EnterDirections
    sAddress = .txtAddress
    sCity = .txtCity
    sState = .cmbState
    'sZip = .txtZip
End With


For x = 0 To UserForm1.lbxSiteInfo.ListCount - 1
    If UserForm1.lbxSiteInfo.Selected(x) Then
        eAddress = UserForm1.lbxSiteInfo.List(x, 3)
        eCity = UserForm1.lbxSiteInfo.List(x, 4)
        eState = UserForm1.lbxSiteInfo.List(x, 5)
        'eZip = UserForm1.lbxSiteInfo.List(x, 6)
    End If
Next


sStartPoint = sAddress & ", " & sCity & ", " & sState
sEndPoint = eAddress & ", " & eCity & ", " & eState


sWebURL = "https://www.google.com/maps/dir/" & sStartPoint & "/" & sEndPoint


Unload Me


Shell ("C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe -url " & sWebURL)


End Sub

 

[BrianExcel]

Okay, sorry, I figured it out - I had to replace the spaces in the string with "+" to make the google URL work correctly. I re-established the sStartPoint and sEndPoint as the following, which then worked:

    sStartPoint = Replace(sStartPoint, " ", "+")    sEndPoint = Replace(sEndPoint, " ", "+")