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