Excel - Proteger lista desplegable

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Texto As String, Pais As String, Esta As Boolean, _

        Col As Integer, Fil As Integer

    ' ---- Pais

    If Target.Column = 5 Then

       Texto = Target.Text

       Esta = False

       For Col = 12 To 16

           If Texto = Cells(Col, 5) Then SW = True

       Next

       If Not Esta Then Range(Target.Address) = ""

    End If

    ' ---- Ambiente

    If Target.Column = 6 Then

       Pais = Cells(Target.Row, 5)

       Texto = Target.Text

       Esta = False

       For Col = 12 To 16

           If Texto = Cells(Col, 5) Then

              For Fil = 6 To 23

                  If Texto = Cells(Col, Fil) Then Esta = True

              Next

           End If

       Next

       If Not Esta Then Range(Target.Address) = ""

    End If

End Sub