I'm using this code, although I've amended it a bit and one of the things that I want to do is to get it to add a comment in to a cell
With CreateObject("scripting.dictionary")
For Each Cl In Ws2.Range("A2", Ws2.Range("A" & Rows.Count).End(xlUp))
If Not...