Two follow up comments (for Gunter's consideration)...

1) You can also go directly to the code window for Sheet1 (or any sheet for
that matter) by right clicking the sheet's tab and selecting View Code from
the popup menu that appears.

2) There is no need for Gunter to click the drop downs and select Worksheet
and Change as your posted code already has the procedure framework that
doing so produces. All Gunter needs to do is popup the code window (using
either your posted method or #1 above) and copy/paste your posted code into
that code window.

--
Rick (MVP - Excel)


"Jacob Skaria" wrote in message
...
Launch VBE using Alt+F11. From the left treeview double click Sheet1. From
drop down select Worksheet Change and paste the code so as look as
below...

Try in Sheet1 ColA

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$A:$A")) Is Nothing Then
Range("B" & Target.Row) = Now()
End If
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"Guntars" wrote:

Gentlemen,
I am new to VBA, what I am trying to achieve is, for example when I enter
a
text in cell A1 I want VBA script automatically put timestamp in a cell
B1
and so on. There will be more text added later in column A, and I always
want
the timestamp to appear right next to it, in column B.
I hope somebody will be able to help me, and also explain the steps how
its
done.

Thank you,
Guntars