It keeps saying, "Compile error: Sub or function not defined." VBA claims the error is at the Set rCell = Range("A1:C4"). I'd like to actually use SelectCell to make the range correspond to the entirety of the current cell, and then move the cursor to the beginning of the cell. The last three lines will do the trick for both of these actions, but that's a crude method and I'd like to learn more about Range anyway.
Sub CheckVerseOrder()
Dim sAreaText As String
Dim sCellText As String
Dim iVerse1 As Integer
Dim iVerse2 As Integer
Dim rCell As Range
'Be sure at beginning of cell
Set rCell = Range("A1:C4")
rCell.StartOf
Selection.MoveLeft Unit:=wdCell
Selection.MoveRight Unit:=wdCell
Selection.MoveLeft Unit:=wdCharacter, Count:=1