VBA - "End if without Block If Error"

Code:

Sub CheckWords()
Selection.HomeKey Unit:=wdStory
Dim FirstRound, InQuotes As Boolean
Dim WrongWordCount As Integer
Dim WordCount As Integer
Dim TestingWord As String
WrongWordCount = 0
UnusableWords = Array("i", "me", "you", "us", "we", "my", "mine", "our", "your", "can't", "won't", "should'nt", "you're")
FirstWord = True
InQuotes = False
Do Until Selection.Bookmarks.Exists("\EndOfDoc") = True
  If (FirstWord = False) Then Selection.MoveRight (2) [IF #3]
  Selection.MoveEndUntil Cset:=" ", Count:=10
  TestingWord = NoPunct(Selection)
  InQuotes = QuoteState(TestingWord, InQuotes)
  If InQuotes = False Then                                    [IF #1]
  For WordCount = 0 To UBound(UnusableWords)
  If TestingWord = UnusableWords(WordCount) Then           [IF #2]
  Selection.Range.HighlightColorIndex = wdYellow
  WrongWordCount = WrongWordCount + 1
  End If                                                 [END IF #1]
  End If                                                 [END IF #2]
  Next WordCount
  FirstWord = False
  Loop
MsgBox ("The Program has finished and found " & WrongWordCount & " unusable words.")

Also you should really add an indentation level after every decision statement (If, For, etc) and reduce it after that Decision is done with.