Color the cell when spell check fails for particular colmun

[talk2naga]

Hi
I have written the below macro for my requirement which is

1. I need do a spell check for all the cells in column H which has 300000 rows
2. Highlight the cells which fails in spell check ( can ignore blanks)
3. And also I need to update the adjacent cell in column G with text "Error" , when spell check fails ( not aware how to code that)

The macro below fails and i'm not sure of the issue

Sub Spell()
Dim rCell As Range
For Each h1 In Range("H2:H300000")
If Not Application.CheckSpelling(Word:=hl.Text) Then _
hl.Interior.ColorIndex = 28
Next
End Sub


Any help will be appreciated.

Thanks
Naga

 

[talk2naga]

Sorry, there is a typo in the code. Below is the actaul code

Sub Trim()
Dim h1 As Range
For Each h1 In Range("H2:H300000")
If Not Application.CheckSpelling(Word:=hl.Text) Then _
hl.Interior.ColorIndex = 28
Next
End Sub