This is event code; you must right-click on Sheet1 (or whatever sheet you
use) and click View Code. Then paste the code below into the window that
opens:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$A$1:$b$400")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("Sheet2")
.Select
.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Target.Address
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Target.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Now()
ActiveCell.NumberFormat = "mm/dd/yy"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = InputBox("You've made a change to the Rates tab.
Please enter your name here for historical purposes.")
Application.EnableEvents = True
Application.ScreenUpdating = True
End With
End If
End Sub



Regards,
Ryan--
PS, this code is pretty awesome (not my own doing); found it on this DG a
while back.

--
RyGuy


"gary" wrote:

i have created a sheet in Excel that will be used by sales reps to enter in a
few items which they can get from drop down boxes. the problem i am having
is, this will be the only sheet for them to use, and we are asking them to
'save as" and then when complete, to re-use the same sheet for the next phone
activity. i need to creat a second tab that will keep a running list of what
was entered into the static tab as soon as they save it. how do i do this?