i pasted the code however nothing seems to happen

"Bernie Deitrick" wrote:

perl,

Copy the code below, right-click the sheet tab, select "View Code" and paste the code into the
window that appears.

HTH,
Bernie
MS Excel MVP


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If UCase(Trim(Target.Value)) = "SHIPPED" Then
Application.EnableEvents = False
Target.EntireRow.Copy _
Worksheets("Shipped").Cells(Rows.Count, 1).End(xlUp)(2).EntireRow
Target.EntireRow.Delete
Application.EnableEvents = True
End If

End Sub



"perl" wrote in message
...
Hi,

I am currently working on an excel worksheet for shipping. I would like to
create a function that once the item status is marked "shipped" the entire
line should move onto a different excel sheet named shipped orders. can
anybody be of help I really would appreciate it.