Yes,

I missed that in the header of the post. Thanks.

Mike

"Don Guillett" wrote:

vba

Sub countperiodsincellFormula()
Dim mc As Long
Dim i As Long
mc = 9 ' column I
For i = 3 To 6
MsgBox Len(Cells(i, mc)) - _
Len(Application.Substitute(Cells(i, mc), ".", ""))
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mike H" wrote in message
...
Hi,

Try this

=LEN(A1)-LEN(SUBSTITUTE(A1,".",""))

Mike

"Bubba" wrote:

I am looking to count the number of periods within a single cell using
vba.

For instance if I have 4 cells that contain the following:

5M09-0000700.01.10
5M09-0000700.01.10.10
5M09-0000700.01.10.10.10
5M09-0000700.01.10.10.20

Thus the output of the code for the first cell should be '2', the second
cell output would be '3', and the third/fourht cells would be '4' because
that many period characters were encountered. Data within these cells
will
contain letters, numbers, periods, a few spaces and the "-" dash symbol.
Any
help is greatly appreciated!


.