Get the column width of a cell

=columnsize() is the column width of the active cell 　

=columnsize(A1) is the column width of cell A1

Function ColumnSize(Optional varCell As Variant)
If IsMissing(varCell) Then
ColumnSize = ActiveCell.ColumnWidth
Else
ColumnSize = varCell.ColumnWidth
End If
End Function