Out of stack space

[data808]

Using this VBA code:

Private Sub worksheet_change(ByVal Target As Excel.Range)

If Range("G3").Value = "1550" Then
    Range("A3").Value = "01"
End If

End Sub

And I keep getting an "Out of stack space" error. How do I prevent that error message?

 

[6StringJazzer]

The other thing you can do is format the column as Text.

 

[data808]

The other thing you can do is format the column as Text.

Thanks. Yeah I originally did that but it kept giving an error for that cell where the cell corner would have a green tip and an option where I could ignore the error which is fine but I have to keep doing it every time I remove the value in G3 and enter another value. All the cells would have the error again. So I just went to File > Options > Formulas and turned off Numbers formatted as text option and now its all good.