Uprav si riadok:
Cells(i + 1, 3) = Sheets(i).Range("A1").Comment.Text
na tento riadok sprostosti:
If Not (Sheets(i).Range("A1").Comment Is Nothing) Then Cells(i + 1, 3) = Sheets(i).Range("A1").Comment.Text
a môžeš si z môjho postupu v predošlej odpovedi vynechať riadky týkajúce sa toho riadka (t.j. odrážku 2 a 7)
(t.j. označenie za komentár a zrušenia označenia komentára)
Aké jednoduché, však?
A ostatní z toho robia neviem čo... !