On Sheet code for Muti-Row Selection

Hello All,

I'm looking to select Multiple Rows using a specific column of cells on "WEPS QUAL REPORT" Sheet. I'm have Target Column set to Wingdings 2 Font to create a Check Mark.

I would like to Place the selected Row number in A21:B40. Ultimately I intend on creating a User form to add Dates to selected Cells for each selected Row. I'm having problems getting past this point.

The on Sheet code below (sh06) is what I was tinkering without success.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("R17:R417")) Is Nothing Then
   Select Case Target.Value
        Case "P": Target.Value = ""
        Case Empty, "": Target.Value = "P"
    End Select
Dim Cell As Range
If Target.Count > 1 Then Exit Sub
 'TurnOffFunctionality
 For Each Cell In Selection
    Range("A21").Value = Range("A21").Value & "(" & Cell.Row & ")"
 
Next Cell
 'TurnOnFunctionality
 Else:
    Range("A21").Value = "(" & Target.Row & ")"
 End If
End If

Application.EnableEvents = True

End Sub