Ой, ластпейдж данного тоника оказался фейковым в моём браузере (без 31 страницы) :)  
Не сразу увидел все ответы

http://msdn.microsoft.com/en-US/library/ddck1z30.aspx  
Цитата из ссылки:  
"If the procedure has a genuine need to change the underlying element in the calling code, declare the corresponding parameter ByRef (Visual Basic).  
If the correct execution of the code depends on the procedure changing the underlying element in the calling code, declare the parameter ByRef. If you pass it by value, or if the calling code overrides the ByRef passing mechanism by enclosing the argument in parentheses, the procedure call might produce unexpected results."  
 
Пост Владимира (ZVI) с "задачкой на послетяпницу": http://www.planetaexcel.ru/forum.php?thread_id=9845&page_forum=2

Sub  
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways  
<...>  
ThisWorkbook.UpdateLinks = xlUpdateLinksUserSetting  
End Sub  
 
Или [Alt] + [S] + [T] (см. скрин)

Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Range("A1:A20, D1:D20, G1:G20")) Is Nothing Then  
       Target.Offset(, 1) = IIf(Target.Offset(, 1) = 10, 1, IIf(IsEmpty(Target), Empty, Target.Offset(, 1) + 1))  
   End If  
End Sub