Tab Color Change

[billgyrotech]

I have the following code that when run locks the worksheet from editing. Can something be added to change the tab color of that worksheet to red ?

Thank you

Sub LockRange()
Dim Mycell As Range

ActiveSheet.Unprotect "92bp55"

For Each Mycell In Range("A1:N70")
If Mycell.Locked = False Then
Mycell.MergeArea.Locked = True
End If
Next Mycell

ActiveSheet.Protect "92bp55"
End Sub

[gmr4evr1]

Add this to your code

ActiveSheet.Tab.Color = 255

[billgyrotech]

Great worked perfectly. What is the number for green so I can add to the unlock code?

[gmr4evr1]

That would be

ActiveSheet.Tab.Color = RGB(0, 255, 0)

[billgyrotech]

That works but I don't understand it. My project is getting very close thanks to all of your great help.

[gmr4evr1]

You're welcome.
There are a few ways it can be done. I just gave you the one that I knew. You could also use these...
For red

ActiveSheet.Tab.ColorIndex = 3

For Green

ActiveSheet.Tab.ColorIndex = 10

The numbers go from 1 through 56. Here is a link to the numbers and what color they represent
http://dmcritchie.mvps.org/excel/colors.htm

[scottiex]

I think the RGB one is a good one for understanding.

ActiveSheet.Tab.Color = RGB(0, 255, 0)

{change the activesheet}.{specifically the current tab attributes}.{specifically the color} to equal in RGB format {red green blue in that order} ({no red}, {lots of green}, {no blue})

makes sense right?

[billgyrotech]

I thank you for the education.