Change Event on single cell

[paulyf]

Hi All,

How does the following code have to be amended to recognise a change in a specific single cell, rather than any cells in the worksheet?

Private Sub Worksheet_Change(ByVal Target As Range)

Excuse ignorance but why doesn't something like the following work?

Private Sub Sheets("Sheet2").Cells(1,1)_Change(ByVal Target As Range)

Ta very much!

Cheers - Paul

[Dave Hawley]

Hi

Try this


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
'DO IT
End If
End Sub

[Juan Pablo González]

Just to add to Dave's reply:

The code MUST be in Sheet2 code module, not in a regular module.