Solved: Select the cell with the click of a mouse, and have the result of calculation

[marreco]

Hi.
I need to have the option to choose the cell with the click of a mouse, and have the result of calculation in the cell where the mouse clicked
[VBA]Private Sub Worksheet_Calculate()
Soma = 0
Coluna = 1

Do While Cells(Coluna, 1) <> ""
Soma = Soma + Cells(Coluna, 1)
Coluna = Coluna + 1
Loop

Cells(1, 3) = Soma 'Here I would like the return was where I choose in Excel

End Sub[/VBA]Cross-Post
http://www.excelforum.com/excel-prog...lculation.html

[Bob Phillips]

[VBA]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Soma = 0
Coluna = 1

Do While Cells(Coluna, 1) <> ""
Soma = Soma + Cells(Coluna, 1)
Coluna = Coluna + 1
Loop

Target.Value = Soma
End Sub [/VBA]

[marreco]

Hi.

It was great, thank you very much!!