I want to unlock cell g12 (whole sheet is protected only unlocked cells can be selected) if cell h7 (a merged range of cells) is either Grass Fire or Timber Fire. H7 is a list validated cell so there will be several other options but I only want it to unlock g12 if it is one or the other. What I will be doing later is requiring g12 to be filled in if unlocked before my save macro is able to be run.

I was given this code but it seems as if it does nothing different for me.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Const PW   As String = "secret"
    If Target.Address = "$G$12" Then
        Select Case Cells(7, 8).Value
            Case "Grass Fire", "Timber Fire"
                ActiveSheet.Unprotect PW
                Target.Locked = False
                ActiveSheet.Protect PW
        End Select
        End If
End Sub
Thanks in advance!