Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
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.