Private
Sub
Workbook_SheetChange(
ByVal
Sh
As
Object
,
ByVal
Target
As
Range)
Dim
Wsh
As
Worksheet
If
Target.Count > 1
Then
Exit
Sub
If
Target.Column <> 1
Then
Exit
Sub
If
Target.Value = Sh.Name
Then
Exit
Sub
For
Each
Wsh
In
Sheets
If
Wsh.Name = Target.Value
Then
Exit
For
Next
Wsh
If
Wsh
Is
Nothing
Then
Exit
Sub
Application.EnableEvents =
False
Target.EntireRow.Copy Wsh.Cells(Wsh.Rows.Count, 1).
End
(xlUp).Offset(1)
Sh.Rows(Target.Row).Delete
Application.EnableEvents =
True
End
Sub