Intersect(ActiveCell.EntireRow, tblColumns("Notes").Range).Comment.Shape.Width = 600 Intersect(ActiveCell.EntireRow, tblColumns("Notes").Range).Comment.Shape.Height = 800