Actually, except in xl2002, just entering the formula above across the sheets
should work. To update worksheet names enter in the immediate window
(alt+f11):

for each s in sheets: s.name = s.range("b1"): next s