Please drop the Caps. Hard on the ears.

Sub Comment_Add_Sheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Dim cmt As Comment
Set cmt = ws.Range("A2").Comment
If cmt Is Nothing Then
ws.Range("A2").AddComment Text:="my comment text"
Set cmt = ws.Range("A2").Comment
With cmt.Shape.TextFrame.Characters.Font
.Name = "Times New Roman"
.Size = 12
.Bold = False
.ColorIndex = 0
End With
End If
Next ws
End Sub


Gord Dibben MS Excel MVP

On Mon, 12 Nov 2007 18:47:01 -0800, GRUMPA
wrote:

HOW DO I ENTER A COMMENT IN A WORKBOOK SO THAT IT APPEARS IN THE SAME CELL ON
EVERY WORKSHEET OF THE WORKBOOK? EXCEL 2002

THANK YOU!