Поиск и переимновывание ячеек

[Randy.Mandy]

Здравствуйте!

У меня 2 небольших вопроса о поиске столбцов с определенными именами.
1) В первой строке встречается несколько ячеек с именем "Day"
Необходимо переименовать эти ячейки в "month" + номер по счету переименовываемого столбца. Всего может быть 3 таких столбца. Но может и один или 2.
Таким образом, в случае присутствия 3-ех таких столбцов должны получиться столбцы с именами "month1", "month2", "month3".

Я сделал вот так:

Sub Rename1()
Dim R As Range
For Each R In [A1:AZ1]
For i = 1 To 3
If R.Value Like "Day" Then
R.Value = "month" & "i"
End If
Next
Next
End Sub

но тогда переименовываются все ячейки с именем "Day" в "monthi", а пересчета по номеру почему-то нет.
Помогите, пожалуйста, осуществить необходимое переименование.
___________________________________ _________________________
Как можно осуществить проверку на присутствие ячейки с определенным именем(ячейки также могут находиться только в первой строке), и, если такой ячейки не встречается, то выдать сообщение типа "Столбца с именем <имя ячейки, которое запрашивалось> нет".
Извратился до того,что записал макрос через "найти-заменить".
вот,например, для проверки наличия столбца с именем "Week".

Cells.Find(What:="Week", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Но если в файле столбца с таким именем не присутствует,-то ошибка, дебаг. Как прописать и оформить в виде окна такого рода исключения для этих случаев?

Файл прикрепил. Он один, по обоим вопросам.
Отметил цветом для удобства наглядности ячейки, о которых я писал выше.

[alex77755]

А зачем цикл в цикле? выдели строку и запусти

Sub QWER()
Dim R As Range
Dim J As Byte
Set R = Selection
For Each q In R.Cells
    If InStr(1, q.Value, "Day") > 0 Then J = J + 1: q.Value = "month" & J
Next
MsgBox "исправлоно " & J
End Sub

[alex77755]

Ну или поставь свой диапазон

[Randy.Mandy]

Не было возможности раньше зайти.
Спасибо большое.
Добавил строчку, которая автоматически выделят 1-ую строку для поиска и замены в ней.
все заработало!