Maybe this will work better for you (it is slightly more automated than the
prior version):

Function MyUserName() As String
MyUserName = Environ("UserName")
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$A$1:$BB$4000")) 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 = MyUserName()
Application.EnableEvents = True
Application.ScreenUpdating = True
End With
End If
End Sub

Regards,
Ryan---


"Gord Dibben" wrote:

Have you tried the Template Wizard with Data Tracking?

Writes each newly created workbook record to a data.xls workbook.


Gord Dibben MS Excel MVP

On Wed, 2 Jan 2008 07:19:01 -0800, 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?