Procedure for code

[noelmus]

Hi,
What procedure will I use with object as worksheet so that when I select the word "TOTAL (OBS)", The code below will work?

If Sheets("CHIT1&2").Range("J12").Value = 2 Then      
  Set ht = Sheets("Tank 2")
        u = ht.Range("A" & Rows.Count).End(xlUp).Row + 1
        ht.Range("A" & u).Value = Sheets("CHIT1&2").Range("E24").Value
    End If
End Sub

Thanks in advance

 

[Norie]

Are you looking for code that's triggered when you select a cell on a worksheet?

 

[noelmus]

Hi Norie
Yes please.

Thanks