Naming worksheets after Cells


I have a question regarding using Cells to name worksheets. I have searched the internet and cant seem to find a code that works.

I have names on some worksheets in cell A1 and i want excel to change the name of the Tab when the name in A1 is change.

Please Advise :)