Snap!

Ok..thanks for the suggestions/help. Think I got what I need.. this works perfectly! Thanks for putting up with me here HA!

Work sheet

[VBA]
Option Explicit
Private Sub TOLCHOICE_Change()
ActiveSheet.Unprotect "snap"
On Error GoTo Exits
Application.EnableEvents = False
Call Sandi
Call Mel
ActiveSheet.Protect "snap"
Exits:
Application.EnableEvents = True

End Sub
[/VBA]

Module

[VBA]
Option Explicit

Sub Mel()
If Range("F12") = 0 Then
Range("E12") = " "

ElseIf Range("S12") = "CUSTOM" Then
Range("E12") = " "
[E12].Locked = False
[E12].Interior.ColorIndex = 36

ElseIf Range("S12") = "A" Then
Range("E12") = Range("K14")
[E12].Locked = True
[E12].Interior.ColorIndex = 39

ElseIf Range("S12") = "B" Then
Range("E12") = Range("K15")
[E12].Locked = True
[E12].Interior.ColorIndex = 39
End If
End Sub

Sub Sandi()

If Range("F13") = 0 Then
Range("E12") = " "

ElseIf Range("S12") = "CUSTOM" Then
Range("E13") = " "
[E13].Locked = False
[E13].Interior.ColorIndex = 36

ElseIf Range("S12") = "A" Then
Range("E13") = Range("N16")
[E13].Locked = True
[E13].Interior.ColorIndex = 39

ElseIf Range("S12") = "B" Then
Range("E13") = Range("N17")
[E13].Locked = True
[E13].Interior.ColorIndex = 39
End If
End Sub
[/VBA]