Sub CountColumnsMultipleSelections()
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
End Sub