VBA - send email with multiple ranges in body with 'If Target.Value'

[Sap_Jas]

Hi,

I am trying to have a VBA to send out an email if when several rows which have a special character in column A,
The VBA I have to add this character is : (wingding font for the check symbol)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
If Target.Value = "ü" Then Target.Value = "" Else Target.Value = "ü"
Target.Offset(0, 1).Select
End If
End Sub

Which gives me this (with conditional formatting to change the color)

What I would like to do is simply have the VBA in a button to generate the mail (I know this bit), but, then insert into the 'Body' of the mail, (ONLY) the ranges B:I of each of the lines selected)

Could anyone please help me to understand how to do this ?

 

[Sap_Jas]

Hi Again, maybe i wasn't explaining correctly, here is a screenshot of what I would like to do, I can send the excel file if needed.