Добрый день!
Вот такой код, "навешенный" на кнопку "Маршрут" решает задачу:
[vba]Код
Private Sub CommandButton1_Click()
Dim marsrut As String
Dim nR As Long, nC As Long
marsrut = ""
nR = 2
nC = 2
With ThisWorkbook.ActiveSheet
Do
If nR = 2 Then
marsrut = Cells(nR, nC).Text
Else
marsrut = marsrut & "+to:" & Cells(nR, nC).Text
End If
nR = nR + 1
If nR = 26 Then: MsgBox "Превышено количество (25) возможных" & Chr(10) & _
"для пострпоения точек маршрута!" & Chr(10) & Chr(10) & _
"Маршрут будет построен для началь-" & Chr(10) & _
"ных 25-ти точек маршрута!", vbCritical + vbOKOnly, "Ошибка!": Exit Do
Loop While Cells(nR, nC).Text <> ""
End With
WebBrowser1.Navigate "http://maps.google.com/maps?saddr=" & marsrut
marsrut = ""
nR = 0
nC = 0
End Sub
[/vba]