Select the cells and run this small macro:

Sub spellcolor()
For Each r In Selection
If Application.CheckSpelling(r.Value) Then
Else
r.Interior.ColorIndex = 6
End If
Next
End Sub


This only colors the cells, it does not bring up the dialog.
--
Gary''s Student - gsnu200765


"LiveUser" wrote:

This may be very simple and I am totally over looking it, or tricky. I want
to somehow spellcheck all of the cells and if spellcheck finds an errors than
those cells will be highlighted permantly until I unhighlight them.