title: Get column letter output from users selection from InputBox
body: <p>My goal is to output a column letter in a cell.</p>
  
  <p>The  sub here asks the user to click on a cell (This cell range address will be the letter I want). Then calls another sub which gets the column letter from the users selection and writes it to the cell.</p>
  
  <pre><code>Dim picker As Range
  
  Set picker = Application.InputBox("Column for total number of bar", "Choose column", Type:=8)
  
  Call WriteColFromPicker(picker, "H19")
  </code></pre>
  
  <p>This is the called sub:</p>
  
  <pre><code>Sub WriteColFromPicker(pickedRng As Range, targetCell As String)
  'Writes the column letter to Form controls - Used in column letter picker
  
  Dim ws As Worksheet: Set ws = Worksheets("Form Controls")
  
  Debug.Print targetCell
  
  Dim chosen As String: chosen = Split(pickedRng.Address, "$")(1)
              ws.Range(targetCell).Value = chosen
  
  End Sub
  </code></pre>
  
  <p>However, nothing is being written to the cell.</p>
  
  <p>Interestingly, you will see I have a <code>Debug.Print</code> which isn't returning anything...</p>
  
  <p>Probably missing something simple here, but I cannot see it</p>
  
  <p>Another note, it works fine when I dont have it in separate subs, I have split the letter extraction and writing to the cell into a different sub as I intend to call this quite a few times.</p>
  
  <p>Thanks</p>