Нужна помощь срочно, буду крайне признателен.

Нужен макрос для массовой переименовки названия листов.
У меня в книге начиная с 4 листа(название лист14) листы называются по разному ( лист14, следующий лист98 и т.д. ) необходимо с листа4(он же лист14) изменить все названия листов на Лист1 .... Лист2000 по порядку