Automatically delete in spell check?

  • Thread starter Thread starter DanTMan
  • Start date Start date
D

DanTMan

This is my first post. I hope someone can help me out.

I have some spreadsheets with long lists of words, with one word to a
cell. I would like to check the spelling automatically and delete (or
blank out) any words that are not found in the dictionary. Is this
possible? The last list contained ~29,000 words that I checked one by
one. Future lists look to be even longer.

P.S. I am using Excel 2002.
 
DTM,

I don't believe this is possible without using VBA program code.

Jim Cone
San Francisco, CA
******************************************************
 
How about this:

Option Explicit
Sub testme()

Dim iRow As Long
Dim FirstRow As Long
Dim LastRow As Long

With Worksheets("sheet1")
FirstRow = 1
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

For iRow = LastRow To FirstRow Step -1
If Application.CheckSpelling(.Cells(iRow, "A").Value) = False Then
'.Rows(iRow).Delete
'or
.cells(irow,"A").clearcontents
End If
Next iRow
End With

End Sub
 
That worked perfectly.

Thanks!

Dan

Dave said:
*How about this:

Option Explicit
Sub testme()

Dim iRow As Long
Dim FirstRow As Long
Dim LastRow As Long

With Worksheets("sheet1")
FirstRow = 1
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

For iRow = LastRow To FirstRow Step -1
If Application.CheckSpelling(.Cells(iRow, "A").Value) = False Then
'.Rows(iRow).Delete
'or
.cells(irow,"A").clearcontents
End If
Next iRow
End With

End Sub
Click to expand...
 
Back
Top