RANGO ACTIVO

hola (...), ?????

tengo columna A del 1 al 100 y b del 101 al 200 pej
1 11 (a1,b1)
2 12 (a2, b2)
3 13
. .
OBJETIVO: al yo selecionar a1:a3 en d1 aparesca el resultado de: (b1-a1)*(b2-a2)*(b3-a3) = 1000
y que si eligo el rango a1:a2 en d1 aparesca 100
la dificultad es que realize esa operacion con el rango activo o seleccionado, respecto con la columna b ??

copia/pega (o escribe) el siguiente procedimiento en el modulo de codigo de "esa" hoja:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Dim Start As Integer, Finish As Integer, n As Integer, Resultado As Double
With Target.Columns(1)
Start = .Row
Finish = .Rows.Count + Start - 1
Resultado = Range("b" & Start) - Range("a" & Start)
For n = Start + 1 To Finish
Resultado = Resultado * (Range("b" & n) - Range("a" & n))
Next
End With
Range("d1") = Resultado
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.