neep help controlling Application.MoveAfterReturn

[tbablue]

Hi.

I need help controlling Application.MoveAfterReturn.

I want to set it to False ONLY when a cell in C4:C13 is the activecell.


Private Sub Worksheet_Change(ByVal Target As Range)

Application.MoveAfterReturn = False

If Target.Count > 1 Then Exit Sub
If Intersect(Me.Range("c4:c13"), Target) Is Nothing Then Exit Sub

Application.MoveAfterReturn = False

If InRange(ActiveCell, Range("c4:c13")) Then

Application.MoveAfterReturn = False

ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"", ScreenTip:="CLICK TO PROGRESS"

MsgBox "Hyperlink Available!"

Else
' code to handle that the active cell is not within the right range
MsgBox "Active Cell NOT In Range!"
End If

Application.MoveAfterReturn = True

End Sub


Any help welcomed.

 

[Case_Germany]

Hi,

try:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.MoveAfterReturn = IIf(Not Intersect(Me.Range("C4:C13"), Target) Is Nothing, False, True)
End Sub