Message box to pop up when duplicate values are in a column a

Hi

I am after a routine to add into a macro that displays a message box if duplicate data is in say - column A.

the important aspect is that I am copying and pasting data from another file into sheet1 - hence data validation doesnt seem to work.

i need an independent macro i can tack on or run independently not a none built into sheet1

thanks for your help.