Trying to offset to another sheet

[andrewb90]

Hello all,

I have this that I can't seem to succesfully apply an offset to:

Sub CellToComment()Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set NoteRng = Range("S89:S100").SpecialCells(xlCellTypeVisible)
For Each Rng In NoteRng
    Rng.NoteText Text:=Rng.Value
    'Need to Offset to sheet "Listing" in Column D
Next
End Sub

I'm just trying to just the cell values as comments in column D on sheet "Listing", and I can't quite seem to get it right. Any assistance would be greatly appreciated.

 

[sericom]

Is this what you want

Rng.NoteText Text:=Sheets("Listing").Range("D" & Rng.Row)

 

[andrewb90]

That didn't quite do it. That took the values of the Column D on the current sheet and commented them within my range in column S