Excel VisualBasic Script

Sub addcomment()
    ActiveWorkbook.Worksheets("Sheet7").Names("LocalOffice").Comment = "text"
End Sub