Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
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.