This assumes NO header row. If a header row change to =lr-1

Sub ifallyes()
mc = "i"
lr = Cells(Rows.Count, mc).End(xlUp).Row
If Application.CountIf(Columns(mc), "yes") = _
lr Then Cells(lr, mc) = "No"
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"NebJoel" wrote in message
...
I have an issue that I have not seen posted. I need Excel to read a column
of cells with one of two expressions inside (yes or now). If the column
is
all "Yes" then change the last cell to "Yes" else change last cell to
"no".