Tab Color Change

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