Необходимо переименовать большое количество листов - VBA

Формулировка задачи:

Всем привет. Проблема в следующем: есть большое кол-во листов в книге. И есть названия этих листов типа 01-05-15К или др. буква. Название берется из названия акта (можно присвоить из ячейки). Можете умные товарищи подсказать, какой макрос написать для автоматического переименования этих листов. И корректировке при добавлении новых. А то накосячила и придется 20 листов вручную переименовывать. Заранее спасибо.

Решение задачи: «Необходимо переименовать большое количество листов»

textual
                            Листинг программы 
                        

                            Sub Update_Sheet_Name()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).name = Sheets(i).Range("C1").Value (в этой строке)
Next
Application.ScreenUpdating = True
End Sub
                        