1

Тема: VBA: Изменение окончания в ячейке

Добрый день, подскажите пожалуйста советом с нижеизложенным кодом

Sub Fio()
    For I = 3 To Range("C" & Rows.Count).End(xlUp).Row
    With Sheets("Лист2").Select
        Cells(I, 1) = DativeCase(Cells(I, 1))
        End With
    Next
End Sub

Подскажите где здесь ошибка ?
Макрос вместо ряда ячеек "C"  выполняет операции над рядом ячеек "A"

2

Re: VBA: Изменение окончания в ячейке

cells(I,1) - 2-й параметр и есть номер столбца.