looping through sheets

[montecarlo2012]

Hi everybody. I have a little array A1:D5 sheet1. I used for next loop for subtractions , can you tell me please how can I use the absolute value and get results on sheet2.
this is my code

Sub addrows()
Dim x As Long
Dim y As Long

    For x = 1 To 5
    For y = 1 To 4
    
        Cells(x, "H").Value = Cells(x, "B").Value - Cells(x, "A").Value
        Cells(x, "G").Value = Cells(x, "C").Value - Cells(x, "B").Value
        Cells(x, "I").Value = Cells(x, "D").Value - Cells(x, "C").Value
 
    Next y
 Next x
 
End Sub
thanks.

 

[montecarlo2012]

Hey guys, I got the answer , thank you anyway.