GBKEE

¦^´_ 1# enoch
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     With Target
   
4.         If Not Application.Intersect(.Cells(1), Range("TargetRng")) Is Nothing Then
   
5.             .Cells(1).Offset(0, 2).Select
   
6.         End If
   
7.     End With
   
8. End Sub

½Æ»s¥N½X