Try this form:
http://groups.google.com/groups?threadm=O4wpEVUdCHA.1656@tkmsftngp11
Sub test()
'spell check only unprotected cells
Dim rng As Range
Dim cell As Range
Sheet1.Unprotect
For Each cell In Sheet1.UsedRange
If Not cell.Locked Then
If rng Is Nothing Then
Set rng = cell
Else
Set rng = Union(rng, cell)
End If
End If
Next cell
rng.CheckSpelling
Sheet1.Protect
End Sub
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **
