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
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