Option Explicit Dim Prior As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [B17] <> "" Then Exit Sub If Prior Is Nothing Then Range("A1").Select Set Prior = Selection 'etc...