Ready to kick start your career in 2018? Learn how to build an Android app in January’s Course of the Month and open the door to new opportunities.
Private Sub Highlight_Tree(ByVal highlight_node As Object) ' Parentnode previously declared as node - had to change to avoid type mismatch error. Dim row As Range Dim rngcomments As Range Dim wkscomments As Worksheet Dim n As Object Set wkscomments = ThisWorkbook.Worksheets("Comments") Set rngcomments = wkscomments.Range("Comments") Do Until highlight_node Is Nothing For Each row In rngcomments.Rows Debug.Print row.Columns(1).Value, highlight_node.Key If row.Columns(1).Value = highlight_node.Key Then With highlight_node.Font .Bold = True End With Exit For End If Next row Highlight_Tree highlight_node.Child Set highlight_node = highlight_node.Next Loop End Sub
Join the community of 500,000 technology professionals and ask your questions.