title: How to use activecell row and column in VBA function with filldown?
body: <p>I wrote a function which will concatenate all the cells to the left of the cell the function is in, using a delimiter.  My code is:</p>
  <pre><code>Public Function Concat_To_Left(delim As String)
      Dim C, R As Long
      Dim S As String
      Dim Cell As Range
      Set Cell = ActiveCell
      C = Cell.Column
      R = Cell.Row
      S = Cells(R, 1).Value
      For i = 2 To (C - 1)
          S = S &amp; delim &amp; Cells(R, i).Value
      Next i
      Concat_To_Left = S
  End Function
  </code></pre>
  <p>This code works if calculating a single row.  The problem I'm running into is that the cell.row and cell.column seem to be saved from the first cell when I fill the function to the bottom of a column (by double clicking the bottom right of the cell in the excel sheet).  This results in all cells with this function having the same value as the cell being filled down from.</p>
  <p>Screen-Updating, Events, and Alerts are all on/true.  Application.Calculation is set to xlCalculationAutomatic</p>
  <p>Can anyone tell me how to make this function work on each cell the formula is filled down into, using the proper row and column for each cell (not that column matters when filling down)?</p>