Hi Anne,

I store the code in the worksheet of VBE(right click the sheet tab and
choose "view code").
When other users typed "Y" on the same worksheet, nothing happened and the
code seems not running.
Please kindly advise your meaning of enabling the macros. How? Is it press
F5 to run the code. However, I cannot see the macro name in the "Marco"
dialogue box. Please kindly advise what's wrong.

Sorry for my limited knowledge to VBA (though I'm try my best to learn right
now).

Thanks.
"Anne Troy" wrote:

Where did you store the code, Freshman? And/or what happens when you run the
code on other PCs? Do the other PCs have macros enabled?
************
Anne Troy
www.OfficeArticles.com

"Freshman" wrote in message
...
Dear experts/Bernie Deitrick

Bernie wrote me the code below for transferring records from one sheet to
another and it works perfectly well in my PC. However, when I put the file
into a common network drive and share with other users inside my Company,
the
code only work in my PC and not in other users' PCs. Is the code below has
some restriction to my PC only? If yes, how to modify the code so that the
file can be used by other users.

Please advise and thanks in advance.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myCell As Range
On Error GoTo ErrorHandler
Application.EnableEvents = False
If Target.Column = 4 And Target(1).Value = "Y" Then
Dim eRow As Long
eRow = Sheets("Completed").Cells(Rows.Count, 1).End(xlUp).Row + 1
For Each myCell In Target
myCell.Offset(0, -3).Resize(, 4).Copy _
Sheets("Completed").Cells(eRow, 1)
eRow = eRow + 1
Next myCell
Target.EntireRow.Delete
End If
ErrorHandler:
Application.EnableEvents = True
End Sub