need help with VBA code for moving though designated calls automatically

Hi,

I got some code from a previous thread and it has worked beautifully.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub 'multiple cells changed
If Not Intersect(Target, Range("A3:A300")) Is Nothing Then
    Application.Goto Target.Offset(0, 2)
End If
If Not Intersect(Target, Range("C3:C299")) Is Nothing Then
    Application.Goto Target.Offset(1, -2)
End If

End Sub

I tried to adapt it for another worksheet that I am creating but seem to keep getting an error.

This is how I changed it:

Private Sub Worksheet_change(ByVal target As Range)
    'to move through appropriate cells

If target.Cells.Count > 1 Then Exit Sub 'multiple cells changed
If Not Intersect(target, Range("a3:a1000")) Is Nothing Then
    Application.Goto target.Offset(0, 3)
End If
If Not Intersect(target, Range("d3:d1000")) Is Nothing Then
    Application.Goto target.Offset(0, 2)
End If
If Not Intersect(target, Range("f3:f999")) Is Nothing Then
    Application.Goto target.Offset(1, -5)
End If

It is Run-time error '1004':

application-defined of object-defined error
on the last line --Application.goto target.Offset(1, -5)

and it is not cycling through the cells, it is just going down to the next row.

I want to enter a number in A2 and have it go to cell D2, then F2 then A3 and so on after a value is entered in each cell.

Can anyone fix this for me please. Thanks in advance.

Private Sub Worksheet_Change(ByVal Target As Range)
'to move through appropriate cells
    If Target.Cells.Count > 1 Then Exit Sub    'multiple cells changed
    If Not Intersect(Target, Range("a3:a1000")) Is Nothing Then
        Application.Goto Target.Offset(0, 3)
    ElseIf Not Intersect(Target, Range("d3:d1000")) Is Nothing Then
        Application.Goto Target.Offset(0, 2)
    ElseIf Not Intersect(Target, Range("f3:f999")) Is Nothing Then
        Application.Goto Target.Offset(1, -5)
    End If
End Sub

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however the thread title does not really convey what your request is about.

Please take a moment to amend your thread title. Make sure that the title properly explains your request. Your title should be explicit and not be generic (this includes function names used without an indication of what you are trying to achieve).

Please see Forum Rule #1 about proper thread titles and adjust accordingly. To edit the thread title, open the original post to edit and then click on Go Advanced (bottom right) to access the area where you can edit your title.

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)