It works really good, I made some changes to be able to work with other countries and also I added this to end the mappoint

oApp.ActiveMap.Saved = True
oApp.Quit
Set oApp = Nothing

But how I can do to have more than 25 rows??? because it works really good until row 25 but after that it show me a bug

Thanks

Well this is the final code I have, the only thing is that I can't make the process for more than 25 row, do you know how I can do it?

The code

Dim oApp As MapPoint.Application
Private Sub CommandButton1_Click()
Set oApp = CreateObject("MapPoint.Application.EU")
oApp.Visible = False
Set objMap = oApp.NewMap
Set objRoute = objMap.ActiveRoute
Dim nCurrentRow As Integer
nCurrentRow = 3

Dim Code1, Code2 As String
Dim objFindResults As MapPoint.FindResults


Do While Len(Worksheets("Sheet1").Cells(nCurrentRow, 6)) <> 0


Code1 = Worksheets("Sheet1").Cells(nCurrentRow, 3)
Code2 = Worksheets("Sheet1").Cells(nCurrentRow, 6)

On Error Resume Next

If Code1 = ", " Then Exit Do


Set objFindResults = objMap.FindResults(Code1)
objRoute.Waypoints.Add objFindResults(1)
Set objFindResults = objMap.FindResults(Code2)
objRoute.Waypoints.Add objFindResults(1)



objRoute.Calculate
On Error GoTo 0
Worksheets("Sheet1").Cells(nCurrentRow, 7) = objRoute.Distance
Worksheets("Sheet1").Cells(nCurrentRow, = CStr(objRoute.TripTime / geoOneMinute)

objRoute.Clear
nCurrentRow = nCurrentRow + 1



Loop

oApp.ActiveMap.Saved = True
oApp.Quit
Set oApp = Nothing



End Sub

It was just a wrong zip code, but this code works really good, thanks a lot for your help

Terrific, I'm glad you got it to work and I like your modifications.

Please tell other people about this forum and link to it

Check on row 25 (or the row above or below) and put those postal codes directly into MapPoint manually, one of them must not be found i.e. MapPoint cannot find one of them.

Do either or both of the following
1. find a nearby postal code and fix it on the spreadsheet to be a zip code MapPoint can find..
2. place something in to code so that when it doesn't find a postal code it skips that line. I don't have the MapPoint Help File in front of me but it would be something like If objFindResults.Count = 0 then [SKIP TO NEXT ROW]. Maybe there is no objFindResults.Count property or anything like but, but that would be the logic anyway.

best,
Eric