Hi All,

Have been using this forum and highly value the contributors for some time now, I am quite proficient at excel but VBA is a whole other kettle of fish.

So thank for all of the vicarious help to date, but I have a problem with hopefully an easy fix, the following piece of code does exactly what I need it to, but i need to find a way to continue the code to subsequent rows e.g.;
source_range = "f32"
target_range = "h32"

Here is the code;

Private Sub Worksheet_Change(ByVal Target As Range)

Const sSOURCE_RANGE = "F32"
Const sTARGET_RANGE = "H32"

Application.EnableEvents = False

If Not Application.Intersect(Target, Range(sSOURCE_RANGE)) Is Nothing Then
If Range(sSOURCE_RANGE).Value > Range(sTARGET_RANGE).Value Then
Range(sTARGET_RANGE).Value = Range(sSOURCE_RANGE).Value
End If
End If

Application.EnableEvents = True

End Sub

I am using this in a worksheet to track highest losses and give me a warning, this is how it looks with the 3.90 value the result of the existing code, i need it to work from rows 32 to 64
A2M 750 $2,435.01 $3.247 $3.805 HOLD 3.90 $2,853.75 $418.74 17.20% #NAME?
ANL 54,054 $2,019.95 $0.037 $0.044 HOLD $2,378.38 $358.43 17.74% #NAME?

Any help or advice would be much appreciated and thanks in advance