Error in a existing Macro used for compare the Comma Separated Values present in 2 columns

Hello Guys,

I need help in removing an error in an existing Macro. I am using a Macro which compares the Comma Separated Values present in 2 different columns.

There are 2 sheets in attached file. In Sheet 1 macro is comparing the comma separated values present in Column C with Column A and if value is same then it will generate 0 and if value is unique then it will generate 1 in Column D. The macro is working fine in Sheet1.

But, if I run the same macro in Sheet2 for same purpose the macro is generating “Type Mismatch - Run Time 13” error.

I need help to modify the macro which works in both conditions either of Sheet1 or Sheet2.

Thanks,
MG