Help with adding comment from scripting dictionary item

[tomleitch]

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 .exists(Cl.Value) Then .Add Cl.Value, Array(Cl.Offset(, 1).Value, Cl.Offset(, 2).Value, Cl.Offset(, 3).Value, Cl.Offset(, 4).Value, Cl.Offset(, 5).Value, Cl.Offset(, 6).Value, Cl.Offset(, 7).Value, Cl.Offset(, 8).Value)
      
               
                
            
            
      Next Cl
    '''''
    ' Remove cl if existing in archived
    




       For Each Cl In Ws3.Range("A2", Ws3.Range("A" & Rows.Count).End(xlUp))
       If .exists(Cl.Value) Then .Remove (Cl.Value)
       
       
       Next Cl
       




       
      '*********************
     
      For Each Cl In Ws1.Range("A10", Ws1.Range("A" & Rows.Count).End(xlUp))
     
            If .exists(Cl.Value) Then
            
            'Check/update Desc and add location as comment
            If Trim(UCase(Cl.Offset(, 1).Value)) <> Trim(UCase(.Item(Cl.Value)(0))) Then
            Cl.Offset(, 1).Value = .Item(Cl.Value)(0)
            On Error Resume Next
            Cl.Offset(, 1).ClearComments
            On Error GoTo 90
            Cl.Offset(, 1).AddComment
            Cl.Offset(, 1).Comment.Text = .Item(Cl.Value)(6)
            Cl.Offset(, 1).Interior.Color = rgbYellow
            End If

So that's a part of the code and the bit I'm having trouble with is the bit where I'm trying to add comment text.


Can anyone help?

Cl.Offset(, 1).Comment.Text = .Item(Cl.Value)(6)

is the bit that seems to be wrong.




Thanks
Tom