Word Document Properties

Listing 5-9
Using the GoTo Statement
‘ The restart point.
RestartCheck:
‘ Determine if the user has selected more than one row.
If ActiveWindow.RangeSelection.Rows.Count = 1 Then
‘ Get the cursor position.
130
Part II: Learning the Ropes 
10_046500 ch05.qxp 12/5/06 5:35 PM Page 130

---

CursorPosition = ActiveWindow.RangeSelection.Row
Else
‘ Tell the user to select only one cell.
Result = MsgBox(“Select only one cell!” + vbCrLf + _
“Choose the first row in the range?”,
_
vbExclamation Or vbYesNo, _
“Selection Error”)
‘ Determine if the user selected Yes.
If Result = vbYes Then
‘ Modify the selection.
Range(“A” + _
CStr(ActiveWindow.RangeSelection.Row)).Select
‘ Try the check again.
GoTo RestartCheck
End If
‘ Exit the Sub without further processing.
End
End If
This version of the code extends the error trapping found in the earlier
“Using the Select Case statement” section of this chapter. The original ver-
sion correctly identifies an error condition, but then it rudely ends without
helping you fix the problem. Rude programs make people mad, so it’s best to
provide some helpful assistance when you can.
Notice that the message box now displays a message that gives you a chance
to fix the error. 
Result
is a 
VbMsgBoxResult
data type, and it stores the
button click information.
When you click Yes, the code changes the current selection by using the
Range
function. Notice how the code converts the numeric 
ActiveWindow.
RangeSelection.Row
property value to a string and combines it with a
column letter for the 
Range
function. After the code moves the selection
point, it uses the 
GoTo
statement to return to a point before the row selection
check in the code. Because there’s only one row selected now, the check is
completed successfully.
Avoiding misuse of the GoTo statement
Many programmers misused the 
GoTo
statement so severely in the past that
most books tell you not to use it at all. Misuse of the 
GoTo
statement leads to
131