Private Sub Worksheet_SelectionChange(ByVal Target As Range) [IV65536] = IIf([IV65536] = 1, 2, 1) If [IV65536] = 2 Then Target = [IV65535] Else [IV65535] = Target End IfEnd Sub
