Macro to auto select adjacent cell then cell underneath

Thanks for your post nilem, unfortunately I can't seem to get you code to work:

Originally Posted by nilem

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 3 Then Exit Sub
If Target.Column = 1 Then Target.Next.Select Else Target(2, 0).Select
End Sub

I have put it into the worksheet code but when I hit enter in B1 it just selects the adjacent cell.

I think I have almost cracked it, well at least i think I am on the right lines:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "H:H" Then
       ActiveCell.Offset(1, -1).Select
    End If
End Sub

It's not quite working though