Click cell to run a code

[noelmus]

[FONT=&quot]Hello,[/FONT]
[FONT=&quot]I have a code that runs with a Command button. Is it possible to modify the code so that it runs when I click a particular cell?[/FONT]
[FONT=&quot]This is my code:[/FONT]
[FONT=&quot]Private Sub CommandButton1_Click()[/FONT]
[FONT=&quot]Dim c As Range, a[/FONT]
[FONT=&quot] Set c = Worksheets("Sheet1").Range("A1")[/FONT]
[FONT=&quot] c.NumberFormat = "@"[/FONT]
[FONT=&quot] If InStr(c, "/") = 0 Then[/FONT]
[FONT=&quot] c = "000001/" & Format(Date, "yy")[/FONT]
[FONT=&quot] Else[/FONT]
[FONT=&quot] a = Split(c, "/")[/FONT]
[FONT=&quot] a(0) = Format(a(0) + 1, "00000#")[/FONT]
[FONT=&quot] If Format(a(1), "00") <> Format(Date, "yy") Then a(1) = Format(Date, "yy")[/FONT]
[FONT=&quot] c = Join(a, "/")[/FONT]
[FONT=&quot] End If[/FONT]
[FONT=&quot]End Sub[/FONT]
[FONT=&quot]Thanks in advance[/FONT]

 

[steve the fish]

There is a double click event:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

MsgBox Target.Address

End Sub