Roy:
I see now that you edited your reply, and that it worked in version 2000.
I now attach the full version (not finished yet). Maybe I have overlooked something else that makes it not work in 2002.
This is the real code:
Public Sub SetCellComments()
Dim i, j As Integer
Dim sDefName As String
Dim sComText As Variant
Dim iRowOffset As Integer
Dim strLng As String
Worksheets(1).Unprotect
' Find current language
For j = 0 To 5
If Worksheets(2).Range("c3").Offset(j, 0).Value = Range("Language").Value Then
iRowOffset = j
End If
Next j
Worksheets(1).Activate
For i = 1 To 23
sDefName = "Comment" & i
sComText = Worksheets(2).Range("c12").Offset(iRowOffset, i).Value
If NameExists(sDefName) Then
Range(sDefName).Comment.Text Text:=sComText
End If
Next i
Worksheets(1).Protect
End Sub
Bookmarks