Macro to edit variable text in a specific cell

I have several clients who, for whatever reason insist on entering their business name twice in a specific cell, which causes havoc with my workbook.
EG.
The text appears in the cell as Smiths Hardware, carriage return, Smiths Hardware.
Is there any way I can run a simple macro which will edit this text to simply read Smiths Hardware?

I have tried numerous methods and I'm having less than satisfactory results.

I would like the macro to work on the same specific cell, regardless of the clients duplicated name.

Any help would be greatly appreciated.

I ran your code and it throws up a type mismatch error?
The duplicated names are in column AD and Row 1 is the header column as you correctly surmised.
The sheet name is a variable, however it is always sheet 1, regardless of the tab name.

Thanks for help.

Please Login or Register  to view this content.

The preceding line is highlighted by debugger.

Hi OllieB,

Use with the formula option: -
=LEFT(A1,(LEN(A1)-FIND(CHAR(10),A1)))

change the reference cell A1 as per your requirement

Regards,
loki

Thanks again for you help OllieB.
The worksheet name varies every time I load an order, which is why I have to refer to it by it's logical number. The code would only work for one specific customer if I use the sheet name.
The answer is probably staring me in the face.

Sheet1.
I have addressed the sheet by it's number and have the same error.
Getting late here so I'll hit the sack and maybe the solution will come to me.
Thanks again.
Cheers.