Sorry code should have said:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
'Type your Macro name here
MsgBox "A1 value is changing"
End If
End Sub

--
Regards,
Rocky McKinley


"Giorgio" wrote in message
...
Hi,

i would like run a macro whenever the value of a cell
change.This for all the cells in a certain column.

Thankyou
regards
Giorgio