Sub SpelWordCorect()
On Error GoTo SomethingsBroke
Dim x As Boolean
Dim rng As Excel.Range
Dim rngCell As Excel.Range
Set rng = Selection
For Each rngCell In rng
If Len(rngCell) Then
x = Application.CheckSpelling(rngCell.Value)
rngCell(1, 2).Value = x
End If
Next
SomethingsBroke:
Exit Sub
Beep
MsgBox Err.Number & " " & Err.Description
Resume Next
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Jim McC"

wrote in message
On 6/21, CWillis asked about spell checking. NickHK said he should use the
syntax 2 but no explanation of how to do so. I have a situation where I have
a column of data, one word per cell, that I would like to do a spell check
on. If the word is good, save it to a different cell and increment for the
next entry. If the word is spelled incorrectly don't give me the goofy box,
just look at the next word. My biggest problem is that I don't understand
Application objects and stuff like that. I read the help boxes but with no
formal programming experience I can't understand it. I am able to write the
loop using the Cells property. Thanks for any help.

Correction...

Change the order of these two lines...
SomethingsBroke:
Exit Sub
-To-
Exit Sub
SomethingsBroke:

Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html