I need a macro that will color tabs for me based upon a text value in a cell.

here's what I have for sheet names.

Sheet Names:
Sheet1
Gregstab
Mikestab
Joestab

I want the Macro to key off a key word, or name in sheet 1, Such as A5

If A5 = Greg, Color tab Greg turns blue
Else
If A5 = Mike, Color tab Mike Turns Blue
Else
If A5 = Joe, Color Tab Joe turns Blue.

Could someone please help me with this?