
ActiveWorkbook.Names.Add Name:="areadiprova", RefersToR1C1:= _
"='Daily Manhours Report'!R6C24"
ActiveWorkbook.Names("areadiprova").Comment = "" |
Sub set_comment(r As Range, s As String)
If Not (r.Comment Is Nothing) Then r.Comment.Delete
s = Trim(s)
If s = "" Then Exit Sub
With [r].AddComment
.Visible = False
.Text s
End With
End Sub |
ActiveWorkbook.Names.Add Name:="areadiprova", RefersTo:= ['Daily Manhours Report'!X6].currentregion |
