Run macro when click on cell rather than value change

[Kamolga]

Hi,

I have a pretty long macro running when changes are made to a group of dropdown menu (if the user change value, put the same or delete the value), using

[TABLE="width: 588"]
<tbody>[TR]
  [TD="class: xl63, width: 588"]Private  Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells as Range
Set KeyCells = Range(Whatever)
[TABLE="width: 588"]
<colgroup><col></colgroup><tbody>[TR]
[TD]    If Not Application.Intersect(KeyCells, Range(Target.Address)) _[/TD]
[/TR]
[TR]
[TD]           Is Nothing Then[/TD]
[/TR]
</tbody>[/TABLE]

[/TD]
[/TR]
</tbody>[/TABLE]

What I would like is to run a first macro (simple zoom) when click on the cell, before selecting value. I hope I am clear. Is it possible?

Thank you in advance for your help

 

[Domski]

You can use a SelectionChange event:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range(Whatever)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

 

[Kamolga]

Thank you very much!
There was no way to increase font of dropdown menu and no way to read the menus at 60% zoom. This work-around works perfectly