Compile error in code

[ndendrinos]

With this code I get a compile error
"function call on left hand side of assignment must return variant or object"

MsgBox= is highlighted

If [A16].Value = "B/Order" Then
    Application.DisplayAlerts = False
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = ActiveSheet.Range("A17:A35")

For Each rng2 In rng1
If rng2 = "" Then
MsgBox = "hello"
Next
Else
ActiveSheet.Delete

End If
    Application.DisplayAlerts = True

What I'm trying to do is this:
for each cell in [A17:A35] if the adjacent cell (same row column B) is empty then show a msggbox

Thank you

 

[ndendrinos]

B16 is empty.
I've switched things around abit and now I get to see the msgbox BUT when I introduce the "Else" I'm in trouble.(Else without IF)
This is what it looks like:

Sub test()

        
        For Each cell In Range("A17:A35")
            If cell.Value <> "" And cell.Offset(0, 1).Value = "" Then
                MsgBox cell.Address & " is not blank." & vbCr & _
                       cell.Offset(0, 1).Address & " is blank."
                Exit Sub
            End If
        Next cell
        Else
    If Range("A6").Value = "B/Order" Then
        ActiveSheet.Delete
    End If
End Sub

My bad I have A6 instead of A16 ALSO took the Else out
Now I just have to suppress the prompt to delete the sheet and s/b OK

 

[AlphaFrog]

deleted

 

[ndendrinos]

not sure what "deleted" means in your last post ... does this mean you answered and then deleted the answer?
anyhow this is what I have now and I still get the prompt to delete or not the sheet.

Sub test()

        
        For Each cell In Range("A17:A35")
            If cell.Value <> "" And cell.Offset(0, 1).Value = "" Then
                MsgBox cell.Address & " is not blank." & vbCr & _
                       cell.Offset(0, 1).Address & " is blank."
                Exit Sub
            End If
        Next cell
    Application.EnableEvents = False
    If Range("A16").Value = "B/Order" Then
        ActiveSheet.Delete
    End If
    Application.EnableEvents = True
End Sub

 

[ndendrinos]

I'm really tired tonight ... s/b Application.DisplayAlerts = False/True
Thank you AlphaFrog & have a great evening

 

[AlphaFrog]

It should be Application.DisplayAlerts and not Application.EnableEvents.

 

[ndendrinos]

Did I beat you to it at least?
Thanks again