Вах! В примере красненькую ячейку не показал, пусть это будет B1.

Думаешь всеравно разбудят первого числа? :)

Ну тогда так: "Просыпаюсь я в январе, открываю первый раз файл..."  
 
Да, забыл сказать, форматы которые будут находиться на листах (условные и обычные) не затрагиваются очисткой, очищаются только константы.  
Число которое будет прописываться в ячейке B1 должно отображаться в формате "[$-419]ММММ ГГГГ;@" если это важно конечно...

Добрый вечер!  
Дима, спасибо что откликнулся.  
Каюсь, виноват, создал некорректный пример и надеюсь на ответ. Сейчас накропаю нормальный с реальным расположением диапазонов.  
Теперь ответы на вопросы, по порядку:  
------------------------------------------------------------------  
<<"- в зеленых диапазонах именно только константы удалить надо? Просто там нет ни одной константы - только формулы...">>  
Там должны быть только константы (просто, создавая пример с помощью СЛУЧМЕЖДУ() - забыл формулы заменить на значения), и их нужно очистить не затрагивая условного и обычного форматирования - это касается только вновь созданного листа (остальные листы не трогаем).  
------------------------------------------------------------------  
<<"-Диапазоны заданы раз и навсегда? Т.е. в макросе можно жестко указать диапазоны для очистки и т.д. и не пытаться их вычислять?">>  
Да, диапазоны стационарные, по крайней мере надеюсь на это. Даже если и прийдется когда-нибудь их передвинуть, думаю найду чего в макросе поправить. Пример, с реальным расположением диапазонов сейчас будет...  
-------------------------------------------------------------------  
<<"Это как? Т.е. наступил новый месяц - заменяем во всех листах формулы в желтых ячейках на значения? Правильно или есть подвох?">>  
Нет, заменять нужно только во втором третьем и четвертом листе в порядке их расположения, тоесть допустим первоначальное расположение листов такое: Январь, Февраль, Март, Апрель, Май и т.д., так вот, заменить нужно Февраль Март и Апрель...  
Теперь post_128194.rar в ближайшем рассмотрении :)  
Прежде чем его открыть, передвинул системные часы в будущее - 01.01.2011, открыл файл. Видимо лист "Январь" создался, но почему-то поместился в начало, а нужно в конец списка. Тоесть после данных махинаций макросом, первым листом в списке должен стать Февраль, а последним вновь созданный Январь.  
Да, по поводу ячейки с датой: там должна быть дата-константа 01.01.2011, а не формула СЕГОДНЯ(), и остаться неизменной на этом листе навсегда.  
Вот пример с реальным расположением диапазонов:

kim, у меня предложение: а может не нужно уж ТАКОЙ автоматизации? Ведь не трудно 12 раз в году нажать на кнопку :-). Т.е. макрос будет всё это делать только тогда, когда Вы об этом ему скажете.

Макрофобия?

Вот так попробуйте:  
Public Sub qwe()  
Dim Ws As Worksheet  
Dim NewSheet As Worksheet  
Set NewSheet = Sheets.Add  
   NewSheet.Move After:=Sheets(Sheets.Count)  
Application.DisplayAlerts = False  
For Each Ws In ThisWorkbook.Sheets  
If Ws.Name = CStr(Format(Now, "MMMM")) Then Ws.Delete  
Next  
NewSheet.Name = CStr(Format(Now, "MMMM"))  
Application.DisplayAlerts = True  
End Sub

А насчет кнопки - я недавно для Serge 007 писал программку, к-рая 1-го числа(или просто, когда месяц поменялся) выполняла какие-то действия. Там еще дикий гемор был с объединенными ячейками. Поищите(мне лень:-)).

Если создается Декабрь, и так как листов в книге всегда двенадцать, то по логике, перед созданием/копированием, список листов начинается с Декабря (прошлый год) и заканчивается Ноябрем, кошмарить нужно Январь Февраль и Март :) Ну вобщем листы каждый месяц смещаются влево, как в стеке.

Тогда так:  
Public Sub qwe()  
Dim Ws As Worksheet  
Dim NewSheet As Worksheet  
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)  
Application.DisplayAlerts = False  
For Each Ws In ThisWorkbook.Sheets  
If Ws.Name = CStr(Format(Now, "MMMM")) Then Ws.Delete  
Next  
Sheets(Sheets.Count).Name = CStr(Format(Now, "MMMM"))  
Application.DisplayAlerts = True  
End Sub  
А в Workbook_Open()  
If Month(CDate(Sheets(Sheets.Count).Range("Где у Вас там дата для сравнения"))) = Month(Now) Then Exit Sub  
call qwe  
End Sub

Последняя версия с очисткой зелени и вставкой даты:  
Public Sub qwe()  
Dim Ws As Worksheet  
Dim a As Byte  
a = Sheets.Count  
Sheets(a).Copy After:=Sheets(a)  
Application.DisplayAlerts = False  
For Each Ws In ThisWorkbook.Sheets  
If Ws.Name = CStr(Format(Now, "MMMM")) Then Ws.Delete  
Next  
Sheets(Sheets.Count).Name = CStr(Format(Now, "MMMM"))  
[A2] = Now
Range("G4:AK49").ClearContents  
Application.DisplayAlerts = True  
End Sub  
Листы будут смещаться влево.

Две строки:  
[A2] = CDate("1." & Month(Now) & "." & Year(Now))
Range("G4:AK10,P20:U20,V20:AC24,G26:AK47,G49:AK49").ClearContents

{quote}{login=kim}{date=01.06.2010 11:28}{thema=}{post}и нет чтоб создать копию...{/post}{/quote}  
Плюс еще и копиефобия?! :)

Вот же тормознул немного. Так правильней:  
Public Sub qwe()  
Dim Ws As Worksheet  
Dim a As Byte, m As Byte  
a = Sheets.Count  
Sheets(a).Copy After:=Sheets(a)  
Application.DisplayAlerts = False  
For Each Ws In ThisWorkbook.Sheets  
If Ws.Name = CStr(Format(Now, "MMMM")) Then Ws.Delete  
Next  
Sheets(Sheets.Count).Name = CStr(Format(Now, "MMMM"))  
[A2] = CDate("1." & Month(Now) & "." & Year(Now))
Range("G4:AK10,P20:U20,V20:AC24,G26:AK47,G49:AK49").ClearContents  
m = Month(Now)  
For a = 1 To 3  
m = m + a  
If m > 12 Then m = 1  
For Each Ws In ThisWorkbook.Sheets  
If Month(Ws.Range("A2")) = m Then  
   Ws.Range("AS4:AS10").Value = Ws.Range("AS4:AS10").Value  
End If  
Next  
Next  
Application.DisplayAlerts = True  
End Sub