Извините что уже надоедаю здесь всем  
Как написать макрос чтобы когда я вводил в ячейку какое-нибудь число и нажимал Enter, к этому числу автоматически прибавлялось 1? Допустим в активной ячейке пишу число 5 нажимаю Enter и активная ячейка выдает число 6.  
 
Спасибо всем кто откликнется!

Здравствуйте уважаемые товарищи!  
 
Попытался сам хоть в жизни один макрос написать. Не получилось.. Но я не сдаюсь и упорно иду к своей цели. Посмотрите где я намудрил. И не смейтесь пож-ста на моим макросом, я ведь только учусь..  
 
Задача такая: В активной ячейке содержится дата. Надо чтобы когда запускался макрос, он прибавлял бы к этой дате сегодняшнюю и отображал ее в MsgBox  
 
Sub MyFirstSteps()  
 
Dim a as Single  
Dim b as Suingle  
Dim c as Single  
 
a = ActiveCell.Value  
b = FormulaR1C1 = "=Today()"  
c = a+b  
 
MsgBox c  
 
End Sub