Pixels

Function CellWidth(TheCell As Range) As Long 
    CellWidth = TheCell.Width * 1.33333333 
End Function

Public Sub get_size_info()
'Procedure to return activecell width and height in points'
'D Kelly O'Day  ProcessTrends.Com
Set rng = ActiveCell
Add = ActiveCell.Address
Message = "Cell: " & Add & vbCrLf
         Message = Message & "Width = " & rng.Width & " Points" & vbCrLf
        Message = Message & "Height = " & rng.Height & " Points" & vbCrLf
out = MsgBox(Message, , "Cell Information")
End Sub