how to run macro in double click on a particular cell

[Khizhavan]

How to run macro in double click on a particular cell?

let me know, how we can run a macro when i am pressing double click on
particular cell.

Thanks

 

[Gary''s Student]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("B9")) Is Nothing Then
Else
MsgBox ("Hello Khizhavan")
End If
End Sub


Because it is worksheet code, it is very easy to install and automatic to use:

1. right-click the tab name near the bottom of the Excel window
2. select View Code - this brings up a VBE window
3. paste the stuff in and close the VBE window

If you have any concerns, first try it on a trial worksheet.

If you save the workbook, the macro will be saved with it.


To remove the macro:

1. bring up the VBE windows as above
2. clear the code out
3. close the VBE window

To learn more about macros in general, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

To learn more about Event Macros (worksheet code), see:

http://www.mvps.org/dmcritchie/excel/event.htm

 

[RocketRod]

Gary - can you help me further - this is exactly what I need but it is not
working for me.
I created a new sheet in my workbook and did the view code thing by right
clicking on the sheet name

I pasted the following in (I have just copied it out of it here to be ceratin)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("B9")) Is Nothing Then
Else
MsgBox ("Hello Khizhavan")
End If
End Sub


I assume that if I double click cell B9 on that sheet the Msgbox should
display but it doesn't

I must be missing something?

 

[RocketRod]

ignore that.
I tried again and it worked - go figure!

 

[Don Guillett]

could have been a one liner

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("B9")) Is Nothing Then MsgBox "Hello"

'or using absolutes and UPPER case
'if target.address="$B$9" then msgbox "hello"
End Sub