Email Hyperlink command button

Hello,

I have created a document with a list of peoples emails.

I want to create a command button that will select a range and select all the email hyperlinks and set up a single email to send to them.

I can get the macro to select the range but it will only email the first one on the list, not the whole ground.

Code is below:

Private Sub Email_Leaders_Click()
    Range("D5:D17").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

I want the email to be to all 13 people however the number after hyperlinks(x) corresponds to the person who will be emailed... i.e. 1 is first on the list, 13 is last.

Any ways round this? Simple as possible please!

Many thanks,

Damien