delete

[oleg_v]

hi
this works great i am sorry
i was not in the office to thank you properly

i have one more question
if i do not want to delete the rows if i want to copy them to another sheet

starting at "A1"


thanks

Try this
[vba]
Option Explicit
Sub DelChars()
Dim rng As Range, i As Long
Dim RegExp
Set RegExp = CreateObject("VBScript.RegExp")
With RegExp
.Global = True
.IgnoreCase = True
End With
RegExp.Pattern = "\w"
Set rng = Intersect(Columns(2), ActiveSheet.UsedRange)
For i = rng.Cells.Count To 1 Step -1
If Not (RegExp.test(rng(i))) Then rng(i).EntireRow.Delete
Next
End Sub
[/vba]