Erro do VBA ao fazer uma validação de lista diferente, dependendo do valor de uma célula

Question

Estou tentando validar uma coluna específica que usa uma validação de lista. Se (coluna “Tabela (T) / Linha (L)” = “L”) usar uma tabela específica, se (“Tabela (T) / Linha (L)” coluna = “t”) usar outra tabela. Eu uso este código abaixo, mas não está funcionando - a lista tem valores errados:

 Function check_alignment_column()

Dim cell As Range, j As String


msg = ""
Set rngCheck = Range([c3], Cells(Rows.Count, "C").End(xlUp))
Set rngcheck2 = Range([m3], Cells(Rows.Count, "M").End(xlUp))

For Each cell In rngCheck

If cell.value = "L" Then

With rngcheck2.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Lists!E2:E5"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

End If

If cell.value = "T" Then
    With rngcheck2.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Lists!F2:F29"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True

End With
End If

   Next cell

 End Function