Question:
How can I make a conditional formatting depending on a cell commentary?
Answer:
Insert the following code into the standard module Formula for conditioned formatting: =test(Data)=True
Function Test(rng As Range) As Boolean
If rng.Comment.Text = "Test" Then
Test = True
Else
Test = False
End If
End Function