Dear all,

I would like to know how to write the codes if I want to call a sub defined
in macro when double clicking a cell on the worksheet. I know that I can add
buttons on the worksheet, but I wonder if I can do the same thing by just
double clicking a cell.

I tried to record the macro, I got the following codes:

Range("A1").Select
ActiveCell.FormulaR1C1 = ""

Can anyone advise? Thanks a lot!

Ivan

Say you want to run a macro called theMacro every time you double click
in cell A1. To do this you would use the sheet event BeforeDoubleClick.
Right click the sheet tab, select view code and paste the following
event code:

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Call theMacro
End If
Cancel = True
End Sub

Hope this helps
Rowan

Ivan wrote:
Dear all,

I would like to know how to write the codes if I want to call a sub defined
in macro when double clicking a cell on the worksheet. I know that I can add
buttons on the worksheet, but I wonder if I can do the same thing by just
double clicking a cell.

I tried to record the macro, I got the following codes:

Range("A1").Select
ActiveCell.FormulaR1C1 = ""

Can anyone advise? Thanks a lot!

Ivan

Dear Rowan,

Thanks a lot! It helps!

Ivan

"Rowan Drummond" wrote:

Say you want to run a macro called theMacro every time you double click
in cell A1. To do this you would use the sheet event BeforeDoubleClick.
Right click the sheet tab, select view code and paste the following
event code:

Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Call theMacro
End If
Cancel = True
End Sub

Hope this helps
Rowan

Ivan wrote:
Dear all,

I would like to know how to write the codes if I want to call a sub defined
in macro when double clicking a cell on the worksheet. I know that I can add
buttons on the worksheet, but I wonder if I can do the same thing by just
double clicking a cell.

I tried to record the macro, I got the following codes:

Range("A1").Select
ActiveCell.FormulaR1C1 = ""

Can anyone advise? Thanks a lot!

Ivan

You're welcome.

Ivan wrote:
Dear Rowan,

Thanks a lot! It helps!

Ivan