Run0Time error '13' - Type mismatch

[kudaSoff]

Не могу найти ошибку вот в этом кусочке кода

    If k = 0 Then
        MsgBox "Вы неверно ввели месяц!" + Chr(13) & Chr(10) + _
                "Месяц должен начинаться с заглавной буквы!", vbCritical, "Ошибка ввода"
        GoTo ErrorMes
    End If
    yea = CInt(Year("yyyy"))
    Worksheets("Лист1").Range("A7").Value = yea
    If Sheets(CStr(yea)) Is Nothing Then
        Sheets(CStr(yea - 1)).Copy(, Sheets(CStr(yea - 1))).Name = CStr(yea)
        'Application.DisplayAlerts = False
        '[a1:a20].Delete
        'Application.DisplayAlerts = True
    End If

Помогите пожалуйста разобраться, что я сделал не так

[SaLoKiN]

файл в студию!

[kudaSoff]

Книга1.zip
Проблема поменялась... Копирую лист, а он зараза не переименовывается(((

[doober]

Макрос все делает правильно.
Ваш алгоритм.
Если листа с именем текущий год нет,то копируем лист прошлый год с новым именем листа Прошлый год.
Непонятно,зачем юзера на ввод месяца напрягать.

[kudaSoff]

Это просто пробный файл.
А вообще в зависимости от выбранного месяца, данные из основной формы по давальческому будут копироваться в столбец отвечающий за соответствующий месяц в лист с названием года.
Вот как-то так