Excel VBA Erro 1004 o método 'range' do objeto '_worksheet' falhou

Question

A planilha Excel VBA que estou utilizando apareceu esse erro 

Erro 1004 o método 'range' do objeto '_worksheet' falhou

Dim tmpRng As Range

    If Target.Address(False, False) = Range("cronomes").Address(False, False) Then

    Calculate

        Call RegOcExCRA(Range("parpre")) 'aqui

        Range("cronomes").Select

    End If

    Set tmpRng = Intersect(Target, Range("cronomes"))

    If tmpRng Is Nothing Then

'    Faz nada

    Else

        If Range("cronomes").Value = "" Then

            Call RegOcExCRA(Range("parpre"))  'aqui

            Range("cronomes").Select

        End If

    End If

    Set tmpRng = Intersect(Target, Range("crono1"))

    If tmpRng Is Nothing Then Set tmpRng = Intersect(Target, Range("crono2"))

    If tmpRng Is Nothing Then Set tmpRng = Intersect(Target, Range("crono3"))

    If tmpRng Is Nothing Then

'    Faz nada

    Else

        If IsEmpty(Target) Then Exit Sub

        On Error GoTo Finis

        enderMod = Separ(Target.Address(False, False))

        enderAnt = Separ(Target.Offset(0, -1).MergeArea.Address(False, False))

        enderPos = Separ(Target.Offset(0, 4).MergeArea.Address(False, False))

        If Range(enderMod(0)).Value + Range(enderAnt(0)).Value > 100 Then

            MsgBox "O acumulado de cada item nunca pode somar mais que 100%!"

            Range(enderMod(0)).Value = 100 - Range(enderAnt(0)).Value

        End If

        If Range(enderMod(0)).Value + Range(enderAnt(0)).Value + Range(enderPos(0)).Value > 100 Then

            MsgBox "O acumulado de cada item nunca pode somar mais que 100%!"

            Range(enderPos(0)).Value = ""

        End If

    End If

Finis:

End Sub

Answer 1

Olá , tudo bem?

Obrigada por entrar em contato com a Comunidade Microsoft.

Meu nome é Valéria sou orientadora independente e farei o possível para ajudar.

Localizei um post do Fórum MSDN que pode te ajudar. Veja: https://social.msdn.microsoft.com/Forums/pt-BR/....

Caso não ajude, para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinado para desenvolvedores e profissionais em TI para tratar está questão.

https://social.msdn.microsoft.com/Forums/pt-BR/....

Para criar uma nova pergunta no fórum MSDN, acesse:

https://social.msdn.microsoft.com/Forums/pt-BR/....

Basta logar com a sua conta Microsoft.

Espero ter ajudado, até mais!