Sub La_Romana()
ThisWorkbook.FollowHyperlink "http://www.oceandevoyages.com/la-romana"
End Sub
Sub Ile_Catalina()
ThisWorkbook.FollowHyperlink "http://www.monnuage.fr/point-d-interet/ile-de-catalina-a42657"
End Sub
Sub Tortola()
ThisWorkbook.FollowHyperlink "http://www.oceandevoyages.com/road-town-tortola"
End Sub
Sub Saint_Martin()
ThisWorkbook.FollowHyperlink "http://www.oceandevoyages.com/saint-martin"
End Sub
Sub Martinique()
ThisWorkbook.FollowHyperlink "http://www.oceandevoyages.com/fort-de-france"
End Sub
Sub Guadeloupe()
ThisWorkbook.FollowHyperlink "http://www.oceandevoyages.com/pointe-a-pitre"
End Sub