Adding Comments for a name
Sub addcomment() ActiveWorkbook.Worksheets("Sheet7").Names("LocalOffice").Comment = "text" End Sub