title: Range error on Range((ActiveCell.Column) & "2").Value = "..."
body: <p>I want to reference the activecell's location to add a title to the column in row 2 of the activecell's column.</p>
  
  <p>I use <code>Range("A" &amp; (ActiveCell.Row)).Value =....</code> earlier in my code. I assume something like <code>Range((ActiveCell.Column) &amp; "2").Value =....</code> would be valid.</p>
  
  <p>I get an error</p>
  
  <blockquote>
    <p>Method 'Range' of object '_worksheet' failed</p>
  </blockquote>
  
  <p>on the line indicated below.</p>
  
  <pre><code>Dim found As Range
  Set found = wsAbv.Range("B1:C93").Find(What:=ActiveCell.Value, LookAt:=xlPart)
  If Not found Is Nothing Then
      For x = 1 To 93
          If ActiveCell.Value = wsAbv.Range("B" &amp; (x)).Value Then
              ActiveCell.Value = wsAbv.Range("C" &amp; (x)).Value
          End If
      Next
  End If
  ActiveCell.VerticalAlignment = xlCenter
  ActiveCell.HorizontalAlignment = xlRight
  
  'Getting 400 error at line below (Method 'Range' of object '_worksheet' failed)
  
  Range((ActiveCell.Column) &amp; "2").ClearContents
  Range((ActiveCell.Column) &amp; "2").Value = "RIG"
  Range((ActiveCell.Column) &amp; "2").Interior.Color = RGB(183, 222, 232)
  ActiveCell.Offset(0, 1).Select
  Range((ActiveCell.Column) &amp; "2").Value = "QTY"
  Range((ActiveCell.Column) &amp; "2").Interior.Color = RGB(216, 228, 188)
  </code></pre>