IF Range is not blank exit sub

[cloos]

Hi -

I have been struggling with this bit of code all day today and just cannot see what is wrong I have copied several bits and modified them and they all come up with the incorrect results.

In a range("A3:A4") there are formulas that post messages if specific conditions are not met. If either cell in the range has a a posted message I want a msgbox("fix errors") and then exit sub, else continue with rest of my code. The results either pop the message box every time I run it whether the conditions are met or not or not at all, and errors. Below is one example I was using and added a count to it for each cell. Any help would be very much appreciated.

Dim rnge As Range


Set rnge = Range("A3:A4")
If Range("A3:A4") <> "" Then
MsgBox "Please correct Errors"
Exit Sub
Else

End If

This is making me batty!

 

[V_Malkoti]

Range("A3:A4") would be an object, not a value.

Sub test1()
    Dim i As Integer, val As String
    
    For i = 10 To 15
        val = Sheets("TestSheet").Cells(i, 4).Value  'checking in column D so 4
        If (val = "") Then 
            ' nothing
        Else
            MsgBox "Message: " & i & val
            Exit Sub
        End If
    Next
End Sub

 

[shg]

  If Len(Range("A3").Text & Range("A4").Text) Then
    MsgBox "Please correct errors"
    Exit Sub
  End If

  ' carry on

 

[cloos]

Ohhhhh! I did not even think about that! Thank you!

 

[shg]

You're welcome.