Could you also please post code, not only images, next time. It is very easy. And BTW if something an option red it is not applicable.
(GeoListPlot[{#1[[1]], #1[[2]], GeoPath[#1]}, GeoLabels -> Automatic] & )[
{Entity["City", {"Paris", "IleDeFrance", "France"}],
Entity["City", {"NewYork", "NewYork", "UnitedStates"}]}]