Cross
New Member
- Joined
- Aug 27, 2012
- Messages
- 25
Hello
I'm trying to do simple thing and I can't get it working
If user change cell value in any cell in column B then cursor should move one cell to the right.
But my code moves cursor to the right immidietly after selecting.
Please help gentlemans!
I'm trying to do simple thing and I can't get it working
If user change cell value in any cell in column B then cursor should move one cell to the right.
But my code moves cursor to the right immidietly after selecting.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If IsNumeric(Target) Then
On Error Resume Next
Application.EnableEvents = False
ActiveCell.Offset(0, 1).Select
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End Sub
Please help gentlemans!