Problem with array and msgbox

[aking1987]

Code
-------------------

Sub errorsandproblems()

For i = 14 To 156
If Worksheets("user editable sheet 1").Range("e" & i) = "<ERROR" Then
MsgBox "It appears that you are dumb, go back and fix it"
Else
End If
Next
End Su
-------------------


If this statement comes across multiple errors between cells 14 to 15
column e, then ONLY one msgbox is to be displayed.

How can i do this?

Antoni

 

[Bernie Deitrick]

Antonio,

Sub FixedProblem()
If Application.WorksheetFunction.CountIf(Range("E14:E156"), "<ERROR") > 1
Then
MsgBox "It appears that you are dumb, go back and fix it"
End If
End Sub

HTH,
Bernie
MS Excel MVP

 

[Bernie Deitrick]

arrrrrggh, crappy line wrap. The "Then" should be at the end of the long
line....

Sorry

Bernie
MS Excel MVP

Antonio,

Sub FixedProblem()
If Application.WorksheetFunction.CountIf(Range("E14:E156"), "<ERROR") > 1
Then
MsgBox "It appears that you are dumb, go back and fix it"
End If
End Sub

HTH,
Bernie
MS Excel MVP