Jesi li već nešto pokušao da automatizuješ i imaš li kakvo (pred)znanje iz VBA? Sa kojom verzijom Ofisa radiš?

Nemoj da te mrzi da ostaviš fajl sa uzorkom; izbegavaju se nepotrebna potpitanja u vezi strukture same liste i ukazuje se elementarno poštovanje prema vremenu bilo koga ko bi eventualno bio voljan da pomogne.
Naravno da ne treba stavljati kompletnu listu; pobriši (iz kopije) sve sem nekoliko reprezentativnih.

U pitanju je ofis 2007 ili 2010

evo ga i deo fajla

Sub brisanje()

For Each cell In Worksheets("Strani").Range("A1:A24").SpecialCells(xlCellTypeComments)

    cell.Comment.text text:=" "

Next cell

End Sub

---

"Strani" - naziv worksheeta u kome su ćelije
A1:A24 - interval ćelija u kojima brišeš tekst

Funkcionise,
ali ima jos jedan problem.
Neke slike su washout a neke automatic.

Kako ih sve namestiti na automatic?