title: How can I change the range to A-C with this code?
body: <p>This code gives me the target range as every cell in the A column. I'd like to change that to A,B and C. I've not been able to successfully do this. Also the date and time stamp should be in the D column. Here is the code. </p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  If Not Intersect(Target, Range("A:A")) Is Nothing Then
      Application.EnableEvents = False
      For Each c In Intersect(Target, Range("A:A"))
          If c.Value &lt;&gt; "" Then
              c.Offset(0, 1).Value = Now
          Else
              c.Offset(0, 1).Value = ""
          End If
      Next c
      Range("D:D").EntireColumn.AutoFit
      Application.EnableEvents = True
  End If
  End Sub
  </code></pre>