Range.Columns Property (Excel)
Returns a Range object that represents the columns in the specified range.
Using this property without an object qualifier is equivalent to using ActiveSheet.Columns.
When applied to a Range object that's a multiple-area selection, this property returns columns from only the first area of the range. For example, if the Range object has two areas — A1:B2 and C3:D4 — Selection.Columns.Count returns 2, not 4. To use this property on a range that may contain a multiple-area selection, test Areas.Count to determine whether the range contains more than one area. If it does, loop over each area in the range.
This example sets the value of every cell in column one in the range named "myRange" to 0 (zero).
This example displays the number of columns in the selection on Sheet1. If more than one area is selected, the example loops through each area.
Worksheets("Sheet1").Activate areaCount = Selection.Areas.Count If areaCount <= 1 Then MsgBox "The selection contains " & _ Selection.Columns.Count & " columns." Else For i = 1 To areaCount MsgBox "Area " & i & " of the selection contains " & _ Selection.Areas(i).Columns.Count & " columns." Next i End If