I have used the following routine to allow me to tick next to a checklist and then add a note in adjacent cell.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Rem Set Ticks to Crosses and Vise Versa
If Target.Cells.Count = 1 And Target.Cells(1, 1).Font.Name = "Wingdings" Then
    If ActiveWorkbook.Sheets("Assessment Form").Cells(Target.Row, Target.Column) = "ü" Then
        ActiveWorkbook.Sheets("Assessment Form").Cells(Target.Row, Target.Column) = "û"
    Else
        ActiveWorkbook.Sheets("Assessment Form").Cells(Target.Row, Target.Column) = "ü"
    End If
    ActiveWorkbook.Sheets("Assessment Form").Cells(Target.Row, Target.Column + 2).Select
    
End If
End Sub
What I want to do is extend this by linking multiple ticked cells (C) within a range (also including checklist item (D) and adject cell (E) ) to another worksheet designed to write a letter inclusive of ticked items (and associated cells).

A B C D E
1 PROGNOSIS BASED ON TREATMENT
2 ü Guarded Intellectual issues
3 û Dependent on (specify)
4 û Limited/poor
5 û Good/optimistic
6 û Superior


Result would look like "Harry's" prognosis is Guarded - Intellectual issues

Hope someone has some ideas.

Kind Regards

Scott