What is a: notenext/comment
Do you mean a cell comment?
Cells(1, 18).NoteText Text:="test"
With Cells(1, 18).Comment.Shape
.TextFrame.Characters.Font.Name = "Arial"
.TextFrame.Characters.Font.Size = 12
.OnAction = "ShapeClick" 'Causes error 1004
End With
Cells(1, 18).Comment.Visible = True