Microsoft Office

VBA Examples 44
Another way to approach this task is to define a custom function that returns True if the selection is a
Range object, and False otherwise. The following function does just that:
Function IsRange(sel) As Boolean
IsRange = False
If TypeName(sel) = “Range” Then IsRange = True
End Function
If you enter the IsRange function in your module, you can rewrite the CheckSelection procedure as
follows:
Sub CheckSelection()
If IsRange(Selection) Then
‘ ... [Other statements go here]
Else
MsgBox “Select a range.”
Exit Sub
End If
End Sub
Identifying a multiple selection
As you know, Excel enables you to make a multiple selection by pressing Ctrl while you select objects or
ranges. This method can cause problems with some macros; for example, you can’t copy a multiple selection
that consists of nonadjacent ranges. The following macro demonstrates how to determine whether the
user has made a multiple selection:
Sub MultipleSelection()
If Selection.Areas.Count > 1 Then
MsgBox “Multiple selections not allowed.”
Exit Sub
End If
‘ ... [Other statements go here]
End Sub
This example uses the Areas method, which returns a collection of all Range objects in the selection. The
Count property returns the number of objects that are in the collection.
The following is a VBA function that returns True if the selection is a multiple selection:
Function IsMultiple(sel) As Boolean
IsMultiple = Selection.Areas.Count > 1
End Function
Counting selected cells
You can create a macro that works with the selected range of cells. Use the Count property of the Range
object to determine how many cells are contained in a range selection (or any range, for that matter). For
example, the following statement displays a message box that contains the number of cells in the current
selection:
MsgBox Selection.Count
763