1) Uprav Sikiho kód nasledovne:

Sub Update_comments()
Dim y As Long
Dim new_comment As String

For y = 2 To Sheets.Count
new_comment = Cells(y + 1, 3).Value
    Sheets(y).Range("A1").ClearComments
    If new_comment <> "" Then
        With Sheets(y).Range("A1")
            .AddComment
            .Comment.Text Text:=new_comment
        End With
    End If
Next y

Columns(3).AutoFit
End Sub

A vravel som Ti, že v budúcnosti už nemá význam opakovane aplikovať toto makro ale môžeš, keby si pridal väčšiu dávku nových hárkov bez komentov v A1.
Ale musíš zas spustiť nezávisle, že prečo, viď bod 2

2) Nečítal si pozorne. Načo by si to implementoval? Vieš čo by to robilo?:
Vyčítalo by to komenty z buniek A1 jednotlivých hárkov a opätovne ich poprepisovalo za to isté. Aký to má význam?
Vravím Ti: v budúcnosti začni tým, že do nových hárkov pri ich vytvorení hneď založ do A1 koment!
Keď chceš dodatočne v budúcnosti doplniť alebo opraviť komenty v bunkách A1, doplň ich rovno do svojich hárkov. Potom aktualizuješ zoznam tlačítkom.

Hotovo!