BTW. to s tym kommentom v A1 bude potom nejakCells(i + 1, 2).Value = Sheets(i).Cells(1,1).Commentalebo tak nejak.