How to goto next iternation in for?

[SathyaM]

Hi Experts,

I am trying to write a code which should work if any one of the cell in Range(AL10 to AL37) is yes and if blank or no it should go to next iternation. Something i am missing here, its displays messge for all iternation(even for balnk values).


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim r As Range
Set r = Worksheets("Resource Addition").Range("AL10:AL37")
For Each cell In r
If Len(cell) <> 0 And cell.Value = "Yes" Then
Call abc
End If
Next
End Sub
Sub abc()
IsEmpty (Cells(ActiveCell.Row, ActiveCell.Column + 1).Value)
MsgBox "Time"
End Sub

only if range value its true it should call the funcation but I am getting the message for blank values of cell.

Please help to resolve.

Thanks for the help.

Regards
Sathya

 

[SathyaM]

Thanks a ton. It worked.
Thanks for the all repied.