ник: Мюллер
Этак вы будете вставлять на каждый лист эту формулу
В моем варианте
Range("A1").Value = ActiveSheet.Name
На всех листах значения ячейкам присваивается автоматически. И в строке формул будет видна не формула, а значение названия листа.
Но, как говорится, хозяин-барин.