Erro de definição / compilação

Question

Boa tarde!

Estou tentando usar o RemoveDuplicate em uma coluna com textos e estou obtendo os seguintes erros:

1) utilizando variáveis no Range, conforme abaixo, obtenho o erro em tempo de execução '1004': "erro de definição de aplicativo ou de definição de objeto"

ActiveSheet.Range("A" & lin_ini & ":A" & linha_fim).RemoveDuplicates Columns:=1, Header:= _
    xlNo

2) fixando linha e coluna no Range, conforme abaixo, obtenho erro de compilação: "era esperado: Separador de lista ou )"

ActiveSheet.Range(A2:A476).RemoveDuplicates Columns:=1, Header:= _
xlNo

Alguém tem uma dica?

Att,

Answer 1

Olá, tudo certinho?

Fiz um teste aqui e com esse código abaixo funcionou corretamente:

Sub Macro1()
    Dim ini As Long, fim As Long

    ini = 1
    fim = 100

    Columns("A:A").Select

    ActiveSheet.Range("A" & ini & ":A" & fim).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub