I am trying to extract contents of cell to a comment.
Column K is Overtime Hours
Column L is Regular Hours
I have managed to create the following macro that will copy the contents of a cell in Column K and put it as a comment in Column L. But I am needing the macro only to create a comment if the value of the cell in Column K is greater than 0
Sub InsertOvertimeComment()
Dim Rgtime As Range
Dim NRg As Range
Set Rgtime = Range(Range("L1"), Range("L1").End(xlDown))
On Error Resume Next
For Each NRg In Rgtime
With NRg
.AddComment Text:=NRg.Offset(0, -1).Text
End With
Next
End Sub
Any help would be appreciated. Thanks
Bookmarks