Прибавление даты и "память" макроса

[Тандер]

Добрый день. Поскажите пожалуйста решение для двух вопросов:

1) Есть у меня макрос прибавления даты:

Sub abc()

ActiveSheet.Cells(1, 2) = ActiveSheet.Cells(1, 2) + 1

End Sub

То есть при нажатии клавиши - добавляется к дате в ячейке 1, 2 - 1 день.

Интересует следующее: как сделать, чтобы при втором выполнении макроса добавлялось 2 дня. То есть нажал один раз + 1 день, нажал второй раз + 2 дня и затем опять + 1, + 2 и т.д.

2) Насчет "памяти" макроса. Если нажать один раз на макрос - добавиться один день. Закрываем файл. Открываем заново. Выполняем макрос - опять добавиться один день, то есть выполнится первое действие макроса. А возможно ли сделать так, чтобы при таком раскладе выполнялось уже второе действие, так как один раз "кнопка уже была нажата". То есть как бы макрос запоминал, что в предыдущую сесию кнопка уже была нажата один раз, значит нужно сделать второе действие, которое соответствует второму нажатию.

Спасибо!

[IgorGO]

сколько добавлять можно хранить:
1. в ячейке
2. в реестре
3. в самом макросе
вариант 2, видимо самый простой, надежный и правильный. значение в ячейке может затереть пользователь, записывать в сам макрос - несколько пафосно для такой задачи, кроме того в способах 1 и 3 необходимо тут же сохранить файл (без ведома владельца, а это есть не очень правильно), а вот запись в реестр - в самый раз.

[kuklp]

Привет, Игорь. Надежней ИМХО в CustomDocumentProperties. Тогда хоть с флехи работай и на любой машине:-)

[IgorGO]

Согласен. отличный вариант, и данные в файле.