Where is the error in this simple macro? - vba

Question

I have this code:
Sub ADD_PEDIDO_AtualizaPagamentos()
If M6 = erro Then
MsgBox ("Erro!")
Else
Sheets("ADD_PEDIDO").[M9].Value = "Done!"
End If
End Sub
Without the "IF" the code works fine. But after I insert IF and Else, I always receive the Error code.
And as you can see in the above code, the M6 cell giver the "OK" to insert, but macro gives me error.
Any help?

Answer 1

You have some severe syntax issues in your coding.
You should refer to a range using the worksheet.Range method.
Sub ADD_PEDIDO_AtualizaPagamentos()
If Worksheets("ADD_PEDIDO").Range("M6") = "erro" Then
MsgBox "Erro!"
Else
Worksheets("ADD_PEDIDO").Range("M9").Value = "Done!"
End If
End Sub

Answer 2

I don't speak Spanish so I don't know if erro is a key term in VBA in another language, but if you're checking for the actual string erro, you should change your if statement line to. Also surround M6 with Range("") so that it knows you aren't referring to a variable called M6.
If Range("M6") = "erro" Then

Answer 3

UNTESTED:
try replacing:
If M6 = erro Then
with:
If Range("M6").Text = "erro" Then

Answer 4

I think you should first learn how to refer to a particular cell or range of cells in VBA by reading this up — then I think you should be able to answer your own question.
Without the if...then in your line 2, it becomes an initialization (assignment) of an hitherto undeclared variable M6, just like `x = ...’.
It may be a good practice for you to add Option Explicit to every module of vba codes you write; then VBA would be more generous in telling you what went wrong.