Macro to change tab color

I keep recording this macro, but the problem I run into is that the active sheet is always the specific name of the sheet. I need a general name so that the macro will work on any given sheet.

On the sheet I am viewing, I simply want to change the tab color to black using a macro.