Pull out duplicate word

Need a function or Macro that will look through a column on excel, and in Cell B2 write the words or string of characters that is in every single row in column A

I provided an example book that shows the data in column A and the desired outcome in cell B1

Thanks.