Macro to move to next cell

[howard]

I have a list of file names in Col A. Before running my macro for the first time, I select Cell A1, and it inserts a comment in C1

Once the macro has run I want it to the cursor to be on A2, then after running the macro select A3 etc


The code that inserts the comment in Col C is as follows:

 rng.Offset(, 2) = "workbook mailed"

It tried using the code below, but get a run time error

 ActiveCell.Offset(1, -2).Select

It would be appreciated if you someone could kindly assist me

 

[alansidman]

Place this code in the Worksheet_Change event

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Target.Offset(0, 2) = "Workbook Mailed"
        Target.Offset(1, 0).Select
    End If


End Sub

 

[davesexcel]

Your first code is not using "Select" so you are actually still on A1, so would only require
activecell.offset(1).select

If you are just running through the cells in Column A, possible looping through the cells.

Sub Button1_Click()
    Dim rng As Range, LstRw As Long, c As Range

    LstRw = Cells(Rows.Count, "A").End(xlUp).Row
    Set rng = Range("A1:A" & LstRw)

    For Each c In rng.Cells
        c.Offset(, 2) = "workbook mailed"
    Next c


End Sub

 

[howard]

Thanks for the help Guys

What I want to do is move to A2 after emailing the file, then A3 , A4 etc after running the macro each time

 

[howard]

Thanks Dave , I used ActiveCell.Offset(1).Select and it works perfectly