Здравствуйте, знатоки Ексель.  
Есть проблема: в ячейке введен текст-  "Август 2012 г." Нужно преобразовать его в дату-  Август 2012 с применением формата ММММ ГГГГ_)"г." Путем долгих ухищрений получилась такая функция =ДАТАЗНАЧ(ТЕКСТ(ЛЕВСИМВ(D2;ДЛСТР(D2)-3);"ДД.ММ.ГГГ"))  
Смысл всего этого в том, что лист копируется, переименовывается, затем нужно открыть код VBA  
 
Private Sub Worksheet_Activate()  
   Cells(2, 4) = Лист2.Name  
End Sub  
 
и остается исправить номер листа.    
 
Подскажите, есть ли другие варианты для решения этой задачи?