title: Worksheet_Change - 3 column multiplication evaluate to
body: <p>I'm new to vba  and frustrated.</p>
  <p>I have the following code :</p>
  <pre><code> Private Sub Worksheet_Change(ByVal Target As Range)
      Dim VolRange As Range
      Dim AffectVolRange As Range
      Set VolRange = ActiveSheet.Range(&quot;AH:AK&quot;)
      Set AffectVolRange = Intersect(Target, VolRange)
        
      If Not AffectVolRange Is Nothing Then
          Dim vRow As Variant
          For Each vRow In AffectVolRange.Rows
              With VolRange
                 Cells(vRow.Row, 37).Value = .Cells(vRow.Row, 34).Value * .Cells(vRow.Row, 35).Value * 
               .Cells(vRow.Row, 36).Value
              
               End With
          Next vRow
      End If
  End Sub
  </code></pre>
  <p>Initial value  in columns 34,35,36, is null</p>