title: VBA Loop through range and replace value in adjacent row cell
body: <p>I have a question regarding some code which doesn't seem to be working properly for me.
  I have set up some code for what I believe is a basic loop through range and replace adjacent row cell, and although no errors are occurring I am not getting the desired result.</p>
  
  <p>If anyone knows better could they look through the code below and give me some advice / a fix to get things rolling:</p>
  
  <pre><code>For Each cCell In Range("C16,C1000")
      'perform action if cell value = "-"
      If ActiveCell.Value = "-" Then
      'move to adjacent cell
      ActiveCell.Offset(0, 1).Select
      'change the cell value to "-"
      Selection.cell.Value = "-"
  Else
      ActiveCell.Offset(0, 1).Select
  End If
  Next cCell
  </code></pre>