How to Autonumber Cell Tags in Mathematica Notebooks?

Question

I tried to follow the directions on autonumbering cells in a Mathematica-8 notebook, here

http://reference.wolfram.com/mathematica/tutorial/AutomaticNumbering.html

Answer 1

For those of you trying to do something similar: I would recommend doing the following:

Extract all cell tags in the notebook

tags= Union[Cases[NotebookGet[nb], (CellTags -> t_) :> t, Infinity]]

Loop through the cells by finding their tags:

Do[
NotebookLocate[tags[[i]]];
(*Some stuff you wanted to do to each cell with a certain tag*)
,{i,1,Length[tags]}
]

Hope that helps!