Sorting a result

If I have input and output like the following:

How could I format the result into alphabetical order, and count the number of items?

Thanks

r = AstronomicalData["Jupiter", "Satellites"];
Sort[r]
Length[r]

To make a small table

r = Sort[r];
TableForm[Table[{i, r[[i]]}, {i, Length[r]}]]

Sort[AstronomicalData["Jupiter", "Satellites"]]
Length[%]

Hey, yes, that’s great, thanks!

I was playing with the “Sort[ ]” function, but I was obviously using it incorrectly, as I was not getting these nice results.

Thanks again!