VBA to change Sheet Name based on lookup from cell value.

Hi guys,

I need help with a VBA code that would look up the contents in a cell on some of my worksheets and then look up that value in a table that I have on a lookup sheet that would then name the original sheet based on the lookup value.

I have attached an example sheet

Sheet1 is lookup
Manager name is in cell A1, lookup this name in the table on sheet1 and then return the abbreviation as the sheet name that the manager name appears.