Adam,

If you only want one period:

Sub Macro1()
Dim myCell As Range

For Each myCell In Range("A:A").SpecialCells(xlCellTypeConstants, 2)
If Left(myCell.Value, 1) < "." Then myCell.Value = "." & myCell.Value
Next myCell
End Sub

If you want another period whether one exists or not, simply delete this:
If Left(myCell.Value, 1) < "." Then

HTH,
Bernie
MS Excel MVP


"adamcollegeman" wrote in message
...
I want to add a period to the FRONT of each different text string in a column
of text cells, How do I do this?

example
from this to this

KQWLN .KQWLN
ERULM .ERULM
MQMLD .MQMLD
TDQAH .TDQAH

Thank you for your Answer