Formula/VBA to enter worksheet/tab color as a value in a cell

I would like to be able to return the color of each worksheet/tab as a value in a cell on each worksheet.

Example:

"Sheet 1" - is colored green - Cell "P1" of this worksheet should say green or the excel value of that color
"Sheet 2" - is colored red - Cell "P1" of this worksheet should say red or the excel value of that color
"Sheet 3" - is colored blue - Cell "P1" of this worksheet should say blue or the excel value of that color

Not sure if this is even possible but thought I would ask the experts and see.

Thanks!

I'm not following what that is doing?

That's not working and I'm not following what it is trying to do?

This isn't doing what I was wanting.