Duplicating cell comment

[ukphoenix]

Carrying on from a previous post

https://www.excelforum.com/excel-pro...ml#post5652203

the working vba is as below

For Each tcell In Range("T4:T315")
        With Range("$X$316:$X$329")
            Set found = .Find(tcell.Value)
            If Not found Is Nothing Then
                tcell.AddComment ("Text")
                     End If
        End With
    Next tcell

What would i need to add or change to the vba for it to add the comment to the corresponding cell in H column?

Currently the cell value in column T changes to pink and a comment is added

ie T4 turns pink as matching a criteria and a comment is added. I need the comment to be added to H4