Spell check an Excel sheet in VBA

Question

I have looked all over the Internet and have discovered a few potential answers to my problem, but I also wanted to ask here.

The objective is to spell-check the full sheet by pressing a button.

Here's some code

Sub spellCheck()

Sheet1.Cells.CheckSpelling
End Sub

Also, I found this:

Sub SpellCheck()
Dim Checkword As String, Result As Boolean
Checkword = Selection.Value
Result = Application.CheckSpelling(Checkword)
Selection.Offset(0, 1) = Result
End Sub

Any ideas? Neither is working for me. Thanks!

Answer 1

Use this code to check the whole workbook:

Sub SpellCheck()

For Each sh In Worksheets
    Sheets(sh.Name).Cells.CheckSpelling
Next

End Sub