I got this macro from you disc table . My question is can I add diff
worksheet with diff names and add correspondng rows to that sheet.
exp. I have EXIT, ALH,EASY three sheets and I need that corresponding
rows to copy to these sheets when I etner Q column.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastExitRow As Long, Cell As Range
For Each Cell In Target
If Cell.Column = 17 Then ' 17 = Column Q
If UCase(Cell.Value) = "EXIT" Then
With Worksheets("EXIT")
LastExitRow = .Cells(Rows.Count, "A").End(xlUp).Row
Cell.EntireRow.Copy .Cells(LastExitRow - (.Cells( _
LastExitRow, "A").Value < ""), "A")
Cell.EntireRow.Delete
End With
End If
End If
Next
End Sub


--
pvkkutty new to discussion group however a freequent reader of discussion
group posts