Run a macro when a cell is clicked.

[mikeburg]

I am trying to come up with VBA that will start upon left clicking cell F4 (selecting it with the mouse).

I would appreciate any help I can get. Thanks, mikeburg

 

[Edward.Xu]

try the event

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if target.address=$F$4 then ....
End Sub

 

[mikeburg]

Thank a bunch. I can't believe I still overlook things so simple.

I just wish there was a way to run the VBA only when mouse selected, not also when selected using the enter or arrow key.s

mikeburg

 

[Smitty]

Take a look at the BeforeDoubleClick event.

HTH,

Smitty

 

[mikeburg]

Thanks, Mikeburg

 

[Jaafar Tribak]

Here is a nice way to create a cell Mouse Left Click event . Selecting a cell with the keyboard won't trigger the Selection Change Event ! only selecting a cell with the mouse will.

here is a workbook demo : http://www.savefile.com/files/1340448

Place in the worksheet module :

Option Explicit
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Type MSG
    hwnd As Long
    Message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type
 
Private Declare Function PeekMessage Lib "user32" _
Alias "PeekMessageA" _
(ByRef lpMsg As MSG, ByVal hwnd As Long, _
ByVal wMsgFilterMin As Long, _
ByVal wMsgFilterMax As Long, _
ByVal wRemoveMsg As Long) As Long
 
Private Const PM_NOREMOVE = &H0
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim Message As MSG
 
    'check for left-mouse button clicks.
    PeekMessage Message, 0, 0, 0, PM_NOREMOVE
    'if left-mouse clicked on cell F4 run macro
    If Message.Message = 512 Then
    If Selection.Address = Range("f4").Address Then
        MsgBox "You clicked cell: " & Selection.Address
    End If
    End If
 
End Sub

Regards.

 

[mikeburg]

Many, many thanks to all 3 of you. I am using all 3 in a couple of other situations.

I really appreciate everyone when they think of something else, will take the time to add to the 1st answer!

mikeburg