Removing Duplicates - Problem with Code

[AndrewGKenneth]

Dear all,

If anyone could help me with this query it would be much appreciated. I have created the following VBA code to remove duplicates in columns C and D of my worksheet.

Private Sub Worksheet_Change (ByVal Target as Range)
Activesheet.Range("C1:C100").Removeduplicates Columns:=1, Header:=xlYes
Activesheet.Range("D1:D100").Removeduplicates Columns:=1, Header:=xlYes
End Sub

This works fine and deletes the duplicates, as required but I will also get the following error message on my computer "Run-time error '-2147417848 (80010108) Automation Error The object invoked has disconnected from its clients" and then the excel sheet will then freeze up. However when used on another computer there is no issue and it works completely fine. Is there something I need to change on my excel settings to avoid this issue?

Thanks in advance, much appreciated.
Kind Regards,
Andrew

 

[footoo]

https://support.microsoft.com/en-hk...-80010108-automation-error-the-object-invoked
https://www.google.com/search?q=Run...ome..69i57.15536j0j8&sourceid=chrome&ie=UTF-8