Databases Reference
In-Depth Information
FIGURE 5.16
Example No. 2: the Highlight If application.
MsgBox "You Must Choose a Range Comprising a SINGLE
Cell!", vbOKOnly + vbExclamation, _
"Improper Range Selected!"
Exit Sub
End If
Compare = Range(RefEdit_Cell.Text).Value
Case False 'TextBox Value
If TextBox_StatVal.Text = "" Or
IsNumeric(TextBox_StatVal.Text) = False Then
MsgBox "You Must Specify a Comparison Value in the
Textbox!", vbOKOnly + vbExclamation, "Improper Compare
Value!"
Exit Sub
End If
Compare = Val(TextBox_StatVal.Text)
End Select
