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

 

[AlphaFrog]

Remove the equal sign in the MsgBox line.

MsgBox "hello"

Also missing an End If after the MsgBox

    Dim rng2 As Range

    If Range("A6").Value = "B/Order" Then
        
        For Each rng2 In Range("A17:A35")
            If rng2 = "" Then
                MsgBox "hello"
            [COLOR="Red"]End If[/COLOR]
        Next
        
    Else
        ActiveSheet.Delete
    End If
    
    Application.DisplayAlerts = True

 

[ndendrinos]

thanks AlphaFrog now it bombs @ "Next" (next without For)

 

[AlphaFrog]

I updated my original post.

You're also missing an End If after the MsgBox

 

[ndendrinos]

thanks working on it
not working yet (no errors) but not doing what I need it to do and that is:

for any populated cell in [A17:A35] if the adjacent in columnB is empty then show a msgbox and exit sub (do not delete sheet)
Sorry about that

 

[ndendrinos]

I've edited my last post
Thank you

 

[AlphaFrog]

    Dim cell As Range

    If Range("A6").Value = "B/Order" Then
        
        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
        ActiveSheet.Delete
    End If

 

[ndendrinos]

working (with thanks for your patience) with what you have just given me but I don't get the message box

A16 has a value of 1 .... B16 is empty I run the code and do not get the message but rather I get the prompt for deleting or not the sheet

 

[AlphaFrog]

Is B16 really empty? It doesn't have a space in it?

 

[AlphaFrog]

The code is not checking A16 and B16

It checks cells A17:A35 and B17:B35