VBA Double Click issue

Hi to all and thanks in advance for your help.

It appears that I am doing something incorrectly with Double Click.

There is a column of random numbers (I use RANDBETWEEN) and two other columns where calculations are performed.

To add the results of the calculation, I use Doubleclick.

I am experiencing a problem in which the random number column is refreshing twice instead of once every time I double click on the sheet. If I delete one of the two options, for example { Cells(5, "A") = Cells(5, "A") + Cells(13, "A") Cancel = True } it works perfectly (the column with the random numbers is refreshing one time and not two).

What am I doing wrong?

The code I am using is as follows.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cells(5, "B") = Cells(5, "B") + Cells(16, "B")
Cancel = True

Cells(5, "A") = Cells(5, "A") + Cells(13, "A")
Cancel = True

End Sub

Try disabling the calculation while you make the changes

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

calc = Application.Calculation
Application.Calculation = xlCalculationManual

Cells(5, "B") = Cells(5, "B") + Cells(16, "B")
Cancel = True

Cells(5, "A") = Cells(5, "A") + Cells(13, "A")
Cancel = True

Application.Calculation = calc
End Sub

Originally Posted by ByteMarks

Try disabling the calculation while you make the changes

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

calc = Application.Calculation
Application.Calculation = xlCalculationManual

Cells(5, "B") = Cells(5, "B") + Cells(16, "B")
Cancel = True

Cells(5, "A") = Cells(5, "A") + Cells(13, "A")
Cancel = True

Application.Calculation = calc
End Sub

It seems to work perfectly. Thank you so much!

Happy to help. Appreciate the feedback.