Help with IF Elseif in macro

[Frank3923]

This is my first time utilizing a IF ElseIF statement with vba. I am receiving a compile error message – reflecting that I have a syntax error. If someone could point out my errors, I would appreciate the feedback.
Thank you in advance

Sub CHECKBuy3()
Dim LR As Long, a As Long
Dim i As Long
Application.ScreenUpdating = False
Worksheets("BP-Proj ").Select
LR = Cells(Rows.Count, "G").End(xlUp).Row
For i = 7 To LR Step 2
IF Range("Q" & i ").value ="NO" and Range("S" & i ").Value = "Up Tick" THEN
Range("U" & i").Value = ""Buy""
Else
Range("U" & i").value = ""DO NOT Buy""

End If
End Sub

 

[hiker95]

Frank3923,


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Option Explicit
Sub CHECKBuy3()
Dim LR As Long, a As Long
Dim i As Long
Application.ScreenUpdating = False
Worksheets("BP-Proj ").Select
LR = Cells(Rows.Count, "G").End(xlUp).Row
For i = 7 To LR Step 2
  If Range("Q" & i).Value = "NO" And Range("S" & i).Value = "Up Tick" Then
    Range("U" & i).Value = "Buy"
  Else
    Range("U" & i).Value = "DO NOT Buy"
  End If
Next i
End Sub