Hi Bob

Your code works fine, thanks.

But how to apply the code to following rows, ie, let's illustrate with the code

If Not Intersect(Target, Me.Range("A1")) Then change Cell A2 value.
If Not Intersect(Target, Me.Range("B1")) Then change Cell B2 value.
If Not Intersect(Target, Me.Range("C1")) Then change Cell C2 value.
If Not Intersect(Target, Me.Range("D1")) Then change Cell D2 value..
..

thanks




----- Bob Phillips wrote: ----

Here is some cod

Private Sub Worksheet_Change(ByVal Target As Range

On Error GoTo ws_exit
Application.EnableEvents = Fals
If Not Intersect(Target, Me.Range("A1")) Is Nothing The
With Targe
.Offset(0, 1).Value = "Cell " & Target.Address(False,False) &
" has been modified on " &
Format(Date, "dd mmm yyyy"
End Wit
End I

ws_exit
Application.EnableEvents = Tru
End Su

'This is worksheet event code, which means that it needs to b
'placed in the appropriate worksheet code module, not a standar
'code module. To do this, right-click on the sheet tab, selec
'the View Code option from the menu, and paste the code in



--

HT

Bob Phillip
... looking out across Poole Harbour to the Purbeck
(remove nothere from the email address if mailing direct

"myBasic" wrote in messag
..
Hello everybody
I am new in Excel macro programming
Is there any ways to fill some words "remarks" into Cell B2 in Eece
worksheet, in case Cell A1 value has been modified. I don't know how t
inplement the actual Excel macro code but using pseudocode to represent m
meaning, say
in Cell B, fill formula
= If cells('A1').value != originalValue The
cells('B1').value = "Cell A1 has been modified on " & Date(
End I
Kindly tell how to convert the above meaning into extual Excel macro code
Thanks & regards