For Each cell In Sheet7.Range("C:C")
If Len(cell.Value) <> 6 Then
MsgBox " has the wrong length"
Exit Sub
End If
Next cell
Это, похоже, не работает: (
Он должен обнаружить, если хотя бы одна ячейка в данном диапазоне не равна 6 цифрам, сгенерировать окно сообщения и выйти из подпрограммы.