Microsoft Office Forums - View Single Post

Kev · 01-30-2017, 12:12 AM

Try this - put in a sheet module
(I assume you are editing the cell and then wanting to move 2 rows down after edit)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myrange as range
    Set myrange = Union(Range("A3"), Range("A5"), Range("A7"))
    If Intersect(myrange, Target) Is Nothing Then Exit Sub
    Target.Offset(2, 0).Select
End Sub

Make your range specific to what you want

To apply to column A only:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myrange as range
    Set myrange = Columns("A:A") 
    If Intersect(myrange, Target) Is Nothing Then Exit Sub
    Target.Offset(2, 0).Select
End Sub

To apply to every cell in the worksheet:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Offset(2, 0).Select
End Sub