Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.