This example formats the font of column one (column A) on Sheet1 as bold.
Worksheets("Sheet1").Columns(1).Font.Bold = True
This example sets the value of every cell in column one in the range named "myRange" to 0 (zero).
Range("myRange").Columns(1).Value = 0
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