Hello everyone, i recently upgraded my excel from 2007 to 2010 and now this code is not working for some reason. Any help would be appreciated, thanks.
Error msg is "Can't find project or library"
=>Private Sub Worksheet_Change(ByVal Target As Range)
Col = Left(Target.Address, 2)
If Col = "$E" Then Target.Offset(0, -4) = Now
If Target.Column = 5 And Len(Target.Address) > 0 Then
If Evaluate("Countif(E:E," & Target.Address & ")") > 1 Then
MsgBox "Duplicate Entry. Removed.", vbExclamation, "Duplicate URL"
Range(Target.Address).EntireRow.ClearContents
End If
End If
End Sub
Bookmarks