Определение месяца формирования документа

Определение месяца и года формирования документа в VBA абсолютно аналогично подобной операции в ООО, отличие только в названиях объектов рабочего листа, а функции те же:

Sub Mon()
Select Case Month(Worksheets("Sheet1").Range("A2").Value)
Case 1
Data = "январь"
Case 2
Data = "февраль"
Case 3
Data = "март"
Case 4
Data = "апрель"
Case 5
Data = "май"
Case 6
Data = "июнь"
Case 7
Data = "июль"
Case 8
Data = "август"
Case 9
Data = "сентябрь"
Case 10
Data = "октябрь"
Case 11
Data = "ноябрь"
Case 12
Data = "декабрь"
End Select
Dim GM
GM = Data & " " & Year(Worksheets("Sheet1").Range("A2"))
End Sub