title: Activate a cell-range on SelectionChange via keyboard input
body: <p>I activate a given cell range on a worksheet by means of the following excel-vba code:</p>
  
  <pre><code>Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  ' msgbox("Change recognized")
  If Sh.Name &lt;&gt; "Spielfeld" Then
      If ActiveCell.Column &gt; 1 Then
          Dim UserSelection As Range
          Set UserSelection = Sh.Range(Cells(1, ActiveCell.Column), Cells(16, ActiveCell.Column))
          UserSelection.Activate
      End If
  End If
  End Sub
  </code></pre>
  
  <p>The code works fine when changing the column / cell via mouse input. But if I just press the left or right arrow key, excel changes the active cell / active column <strong>without</strong> selecting the defined UserSelection! Nevertheless the sub itselfs is always activated when pressing the arrow keys (a msgbox will popup even if I change the cells via the arrow keys). <br/>
  Can anyone tell me why my selection is not automatically updateded when changing the column with the arrow keys? How can I do this?</p>