Worksheet change code

[Frank Kabel]

Hi Todd

try
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Counter As Long
Dim Location

Counter = Application.WorksheetFunction.CountA(me.Range
("K:K"))

On Error Resume Next
Set myRange = Intersect(Range("K2:K" & Counter), Target)
If Not myRange Is Nothing Then
target.Offset(0, 15).Select
SendKeys "%{down}"
End If
End Sub

 

[Todd Huttenstine]

Ah yes, thank you.

Todd

-----Original Message-----
Hi Todd

try
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Counter As Long
Dim Location

Counter = Application.WorksheetFunction.CountA(me.Range
("K:K"))

On Error Resume Next
Set myRange = Intersect(Range("K2:K" & Counter), Target)
If Not myRange Is Nothing Then
target.Offset(0, 15).Select
SendKeys "%{down}"
End If
End Sub


.