I have a column which contains text which has either "Completed" or "Not Started". I sort by that column, then want to find the first cell containing "Not Started"

Do While ActiveCell.Text <> "'Completed"
ActiveCell.Offset(1).Select
Loop

This doesn't work - what am I doing wrong?