Olá, prezados!

Peço vossa ajuda em um problema que tem me feito arrancar os cabelos da cabeça.

Criei a seguinte macro:

Sub SalvaVidas1()

Dim a As Integer, x As Integer

a = 17
x = 17

Do Until x = 32
    If Planilha3.Range("A" & a).Value = Planilha3.Range("Q" & x).Value Then
       Planilha3.Range("H" & a + 5).Value = Planilha3.Range("W17").Value
       x = x + 1
    End If
a = a + 59
Loop

End Sub

A mesma apresenta um erro de "estouro" na linha "a = a + 59", e, mesmo sem qualquer atribuição, a variável apresenta um valor absurdo na verificação rápida (o valor máximo para um Integer), que não foi atribuído em qualquer momento do código!

Porém, realizando a depuração total antes de rodar o código, a macro apresenta todos os sinais de estar funcionando como desejado!

***Defini a variável como Integer pois não vou precisar de valores acima de 32 mil e pouco (na verdade, não chego nem perto disso).

Alguém pode me mostrar onde estou errando? Já aconteceu algo parecido com algum de vocês?