Изменение дат в столбце с помощью макроса

[bookserg]

Имеется столбец с датами вида 02.07.2008, 15.01.2011 и т.д. очень длинный.
Периодически нужно в части ячеек столбца увеличивать даты на единицу,
т.е. выделять нужный диапазон и запускать соответствующий макрос.
Если это возможно, то прошу помочь с макросом.

[kuklp]

Код Выделить Развернуть

Public Sub www()
    Dim s$
    s = Selection.Address
    Range(s) = Evaluate(s & "+1")
End Sub

[bookserg]

Спасибо за проявленное внимание, но не работает, см. вложенный файл...

[kuklp]

А теперь посмотрите сюда. Знаете почему выравнивание по разным краям? Потому, что в нижней части датой и не пахнет. Там текст. А в верхней части все отработало правильно, как видите. Там - дата.

[bookserg]

KuklP, вы правы, действительно всё работает!