title: Allow user to select a column and use the column as a reference point
body: <p>I am attempting to allow the user to select a column through the application input, in order for me to be able to use the column as a reference point. However, have the following issues with my code;</p>
  <p><strong>Issues</strong></p>
  <ul>
  <li>My code doesn't force the user to select a column, rather it selects a single cell.</li>
  <li>I can't seem to then reference a particular cell in the column. For example, if the user chose column A and the transaction column, if i wanted to sum all positive values in column A.</li>
  </ul>
  <pre><code>Dim UserInput1 As Range 'Transaction Column Identifier
  Dim Transaction_Column As Range 'Transaction Column
  
  'Error Handling
  On Error Resume Next
  
  'Allows the user to select location of Transaction Amount Column
  Set UserInput1 = Application.InputBox _
          (prompt:=&quot;Choose the Transaction Amount Column&quot;, Type:=8)
     
  'Error Handling to ensure user does not select more than 1 column
  If UserInput1.Columns.Count &lt;&gt; 1 Then
      MsgBox (&quot;Please Select One Column&quot;)
      Exit Sub
  End If
  </code></pre>