Macro won't do anything!

[junebug]

Hi,
Why won't this work? It doesn't seem to do anything.
What I am trying to do is look down column C starting at row 14 and if the entry ZZ.Coupon is there than offset 0,-1 to B and copy the date the entry was made and paste that date into AA12. If it is found then stop macro.

Sub FindCoupon()
Dim cell As Range
For Each cell In Range("c14", Range("c14").End(xlDown))
If cell = "ZZ. Coupon" Then
cell.Offset(0, -1).Copy
Range("aa12").PasteSpecial (xlPasteValues)
End If
Exit Sub
Next
End Sub

 

[Andrew Poulsom]

Try moving the Exit Sub up before the End If. At the moment it exits the loop after testing the first cell.

 

[junebug]

I moved that but it still does absolutely nothing! Any other ideas?

 

[Seti]

I just tried this and it worked fine. Do you actaully have a cell with ZZ. Coupon in it including the single space after the period?

Sub FindCoupon()
Dim cell As Range
For Each cell In Range("c14", Range("c14").End(xlDown))
    If cell = "ZZ. Coupon" Then
        cell.Offset(0, -1).Copy
        Range("aa12").PasteSpecial (xlPasteValues)
        Exit Sub
    End If
Next
End Sub