Syntax

expression.Count

expression A variable that represents a Range object.

Example
This example displays the number of columns in the selection on Sheet1. The code also tests for a multiple-area selection; if one exists, the code loops on the areas of the multiple-area selection.

Visual Basic for Applications 
Sub DisplayColumnCount() Dim iAreaCount As Integer Dim i As Integer Worksheets("Sheet1").Activate iAreaCount = Selection.Areas.Count If iAreaCount <= 1 Then MsgBox "The selection contains " & Selection.Columns.Count & " columns." Else For i = 1 To iAreaCount MsgBox "Area " & i & " of the selection contains " & _ Selection.Areas(i).Columns.Count & " columns." Next i End If End Sub

See also: