Ah no i didnt.. that brings up a runtime error six and highlights

If Len(rCell.Value) = 7 Then