Emerson Pedro

Boa tarde tudo bem? Preciso remover duplicadas que estão em mais de uma coluna, estava fazendo um teste com apenas duas. Usei o seguinte: Sub excluirRepetidos() Dim anterior As Long Dim posterior As Long For anterior = 2 To Sheets(1).UsedRange.Rows.Count - 1 For posterior = anterior + 1 To Sheets(1).UsedRange.Rows.Count If Sheets(1).Cells(anterior, 1).Value = Sheets(1).Cells(posterior, 1).Valeu Then If Sheets(1).Cells(anterior, 2).Value = Sheets(1).Cells(posterior, 2).Valeu Then Sheets(1).Cells(posterior, 1).EntireRow.Delete End If End If Next posterior Next anterior End Sub Dessa forma gostaria que ele validasse nas duas colunas se tem algo repetido com a linha anterior e se positivo removesse a linha, porém, da erro na linha: If Sheets(1).Cells(anterior, 1).Value = Sheets(1).Cells(posterior, 1).Valeu Then O que posso fazer?