I think this might work-
Have a countif funtion (of pair of for 2 sheets) that look a th
current row and see if it has duplicate entries ie
a b
1 1 =COUNTIF($A$1:$A$2,A1) - 1
2 2 =COUNTIF($A$1:$A$2,A2) - 1
(the minus one has been added so when a number exists only once it wil
return 0. An if statement may also be need for if hte cell is blank.)
Then add this behind the worksheet:
Private Sub Worksheet_Calculate()
If Application.WorksheetFunction.Sum("B:B") <> 0 Then
MsgBox "Duplicate Entry Has Been Made"
End If
End Sub
This method will need a little tweaking and prevention may be a littl
more difficult. Tools/Data Validation may be worth a try....
Hope this helps
Dunca