View Single Post
 
Old 03-25-2012, 10:38 PM
JBeaucaire JBeaucaire is offline Windows XP Office 2003
Advanced Beginner
 
Join Date: Dec 2011
Posts: 51
JBeaucaire is on a distinguished road
Default

Code:
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...
Reply With Quote