Hello,

I'd like to remove values in cells (not cells) in column A that don't
contain a 10digit number.

thanks for any suggestions

Jan

Hi Jan,


I'd like to remove values in cells (not cells) in column
A that don't
contain a 10digit number.


try

For Each cell In Range("whatever")

If (cell.Value Mod 1000000000 = 0) Then
cell.Value = ""
End If

Next cell


Best

Markus

JH wrote:
Hello,

I'd like to remove values in cells (not cells) in column A that don't
contain a 10digit number.

thanks for any suggestions

Jan


Hi Jan

This is simple way to do it.


Sub clearcol()
For i = 1 To 100 ' 100 is the no. of rows to check, could be more
If Len(Cells(i, 1)) < 10 Then Cells(i, 1) = ""
Next i
End Sub


HTH

Andrew Bourke

Maybe Cells(i, 1).ClearContents?

Regards,
Bernd

Thanks everybody
Jan