title: Getting Column Address of Cell Representing the First Instance of a String (VBA)
body: <p>I want to get the column address of the first cell in a particular worksheet that contains a certain string.</p>
  
  <p>Here is code I have written to do so:</p>
  
  <pre><code>Dim StringInQuestion As String
  Dim ColumnRange1 As Range
  NamedSheet.Select
  Range("A1").Select
  On Error Resume Next
  Set FinalCell = Cells(1, 1).SpecialCells(xlLastCell)
  FinalCellAddress = Cells(FinalCell.Row, FinalCell.Column).Address
  Range(ColumnRange1).Select
  Selection.Copy
  Set ColumnRange1 = NamedSheet.Cells
  Dim ColumnRange2 As Range
  ColumnRange2 = ColumnRange1.Find(StringInQuestion)
  Dim ColumnComposite As Variant
  ColumnComposite = ColumnRange1.Address(ColumnAbsolute:=True)
  Dim Column As Variant
  
  'Format column address procured for further use (remove any numbers)
  
  Dim intColumn As Integer
  ColumnComposite = Trim(ColumnComposite)
  For intColumn = 1 To Len(ColumnComposite)
      If Not IsNumeric(Mid(ColumnComposite, intColumn, 1)) Then
          Column = Column &amp; Mid(ColumnComposite, intColumn, 1)
      End If
  Next intColumn
  'Column = Column
  </code></pre>
  
  <p>Although this code compiles without errors, the 'Column' variable remains undefined.  Any ideas? Please share. Thanks!</p>
  
  <p><strong>Update:</strong></p>
  
  <p>Thank you @ScottHoltzman for your help.</p>