basically the same way

Sub test()
Dim numChars As Long
numChars = Len(Worksheets("Sheet1").Range("A1"))
MsgBox numChars
End Sub


--


Gary


"dstiefe" wrote in message
...
how do you do it in VBA?

"PCLIVE" wrote:

=len(A1)

"dstiefe" wrote in message
...
how do i count the number of characters in a cell

so if cell A1 has the day = to "05"....how do i know that there are 2
characters in the cell?

thank you