If then, Msgbox

[Certified]

Hi,

I am trying to write the following if then statement:

If the Cell (6,3) equals "Additional paid in capital" then open a message box that reads "Paid in Cash?" with an option to click "yes" or "no"

If "yes" is selected, populate account # "3103000000" in cell (6, 10). However, if "no" is selected, populate account # "3109000000" in cell (6,10).

Below is the code

If Cells(6, 3) = "Additional paid-in-Capital" Then
        If MsgBox("Paid in Cash?", vbYesNoCancel) = vbYes Then Cells(6, 7) = "3103000000"
        Else
        Cells(6, 7) = "3109000000"

If I select "no", the cell is not being populated.

Can someone please tell me what I am doing wrong?

Thanks.

 

[AlphaFrog]

If Cells(6, 3) = "Additional paid-in-Capital" Then
        If MsgBox("Paid in Cash?", vbYesNoCancel) = vbYes Then 
               Cells(6, 7) = "3103000000"
        Else
              Cells(6, 7) = "3109000000"
        End If
End If

 

[Certified]

Thank you!!!!!!!!!!!!!