Hello All,

I have been posting a ton and getting great help. This is the latest one and I know I have seen examples, but I can't find any that match my need.

Identify if a cell is blank. If so, cell to the right put a "No". If it isn't blank (I don't care what is in there), put a yes. This is the code I am using.

    Dim cell3        As Long
    cell3 = Cells.Find(What:="*", _
    SearchDirection:=xlPrevious, _
    SearchOrder:=xlByRows).Row
    Cells.MergeCells = False
    Columns("R").Insert
    Range("R1").Value = "Kelly"
    

    For Each cell3 In Range("R2", Cells(Rows.Count, "R").End(xlUp))
            If ("Q2:Q" & cell3) = 0 Then
                cell3.Offset(, 1).Value = "No"
            Else
                cell3.Offset(, 1).Value = "Yes"
        End If
    Next cell3
At first I could get it to at least look at the first cell (but nothing happened and it wouldn't look any further) now it won't even run (something to do with the defining of "Cell3"). Once again, I appreciate any help.

Kelly