title: Select Range within Row of Active Cell
body: <p>I've seen several other questions similar to mine and I've tried several different solutions but I am still getting strange results.  My code finds a value in another workbook in Column AA, then I want to copy that row from Column C to Column BC and paste in current workbook.  All of the code works except copying from column C to BC.  For some reason it starts copying the row from column AC.  I've tried a standard range but I think it's relative from the active cell and I don't know if there is a way to do negative column letters so then I tried Offset and I tried .Cells but none select the correct range.  Here is a couple of examples of the code I've tried:</p>
  
  <pre><code>Private Sub ComboBox1_Change()
  
  Dim checknum As String
  Dim chkrow As String
  Dim Rng As Range
  
  prfile1 = Worksheets("setup").Range("B10").Value
  prfile2 = Worksheets("setup").Range("B7").Value
  filepath = Worksheets("setup").Range("e10").Value
  
  checknum = ComboBox1.Value
  
  'Workbooks.Open filepath &amp; prfile2
  Windows(prfile2).Activate
  Worksheets("MRegister").Select
  
  With Worksheets("MRegister").Range("AA:AA")
      Set Rng = .Find(What:=checknum, _
                          After:=.Cells(.Cells.Count), _
                          LookIn:=xlFormulas, _
                          LookAt:=xlWhole, _
                          SearchOrder:=xlByRows, _
                          SearchDirection:=xlNext, _
                          MatchCase:=False)
              Rng.Select
              .Range(.Cells(ActiveCell.Row, -24), .Cells(ActiveCell.Row, 28)).Select
              Selection.Copy
  End With
  
  Windows(prfile1).Activate
  Sheets("ReprintOld").Range("M203:BM203").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
  
  Application.CutCopyMode = False
  Windows(prfile2).Activate
  Sheets("MRegister").Range("A1").Select
  ActiveWorkbook.Saved = True
  ActiveWorkbook.Close
  Sheets("ReprintOld").Range("A1").Select
  
  End Sub
  </code></pre>
  
  <p>for Offset:</p>
  
  <pre><code>.Range(ActiveCell.Offset(0, -24), ActiveCell.Offset(0, 28)).Select
  </code></pre>
  
  <p>for standard Range:</p>
  
  <pre><code>.Range("C" &amp; ActiveCell.Row &amp; ":BC" &amp; ActiveCell.Row).Select
  </code></pre>
  
  <p>You would think all of these would work, but they all start the selection several columns to the right of the active cell.</p>