Run macro on cell selection

[farmock2]

When I run the following macro by selection of a cell within the range, the macro does not run until I select any other cell after selecting that cell. Is there any way to have the macro run immediately with selection of the cell in the range? Thanks for any help you can provide.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("C2:C100")) Is Nothing Then
      Exit Sub
   Else
      RunBTSlong
   End If
End Sub

 

[NoSparks]

with Worksheet_Change the target is the cell you are coming out of (triggers leaving the cell)
with Worksheet_SelectionChange the target is the cell you are going into (triggers entering the cell)

 

[Leith Ross]

Hello Farmock2,

You are using the wrong event procedure to run your macro. You need to use the Worksheet_SelectionChange event.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Intersect(Target, Range("C2:C100")) Is Nothing Then
      Exit Sub
   Else
      RunBTSlong
   End If
End Sub

 

[Fluff]

Your code will only run if you change the value of a cell in C2:C100, it will not run if you simply select a cell.

 

[farmock2]

Thanks for the quick reply. Appreciate your help.