You can have only one change function. try this code it is very simple


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If not IsEmpty(Target.Value) Then
If Len(Target) = 11 Then
Select Target.Row
Case 11:
Range("B2").Select
Case 23:
Range("B12").Select
Case 35:
Range("B24").Select
end select
end if
end if
end if
exit sub


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=177855

Microsoft Office Help