How to code: If active cell is B1, goto H17 when enter pressed

  • Thread starter Thread starter GregBeam
  • Start date Start date
G

GregBeam

When the active cell is B1, I want the curser to move to cell H17 when press
enter. I need the VB code to do this (or a macro)
 
When the active cell is B1, I want the curser to move to cell H17 when press
enter. I need the VB code to do this (or a macro)
Click to expand...

Hi GregBeam,

The code below should be copied to the specific sheet to work. It
will automatically move to cell H17 if the active cell is B1. Don't
have to press Enter key.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$B$2" Then
Application.Goto Range("H17")
End If
End Sub

Regards
trevosef
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B1"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("H17").Select
Application.EnableEvents = True
End Sub
 
Back
Top