Insert Rows Automatically...

**GeekyGav** · 11-09-2011, 04:12 PM

Originally Posted by davegugg

Just do Cells(12,"A").Activate

Thanks, that's great!! Although... I realised my mistake once I added the code...
I don't actually want A12 activated... I want the next cell in column A activated... So... When the last selection is made from column H... Say for instance H2, I'd like A3 to be selected and then when H3 has been changed... I'd like A4 to be activated and so on...

Hope that makes sense?

**davegugg** · 11-09-2011, 04:44 PM

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Columns(8)) Is Nothing Then
        If Target.Cells.Count = 1 Then
            If Target.Value <> "" Then
                Me.Rows(Target.Row + 1).Insert
                Me.Cells(Target.Row+1,1).Activate
            End If
        End If
    End If

End Sub

Please refrain from quoting whole posts - it clutters the forum (see rule 12). I can easily look at the previous post to see what was last written.