Public Sub CheckSheetSpelling()
Dim MySheet As Object
Dim MyCell As Range
Dim i As Integer, j As Integer
Dim MySentence As String, MyWord As String
Set MySheet = Sheets("sheet1")
Set MyCell = MySheet.Range("A2")
For Each MyCell In MySheet.UsedRange
If...