I would like a macro that if a cell in a column (for
example, column B) contains more than 11 characters, to
add an "M" to the contents of the cell. Is this possible?

Thanks in advance.

One way:

Public Sub AddM()
Dim rCell As Range
For Each rCell in Range("B1:B" & _
Range("B" & Rows.Count).End(xlUp).Row)
If Len(rCell.Text) 11 Then _
rCell.Value = rCell.Text & "M"
Next rCell
End Sub



In article ,
"Janna" wrote:

I would like a macro that if a cell in a column (for
example, column B) contains more than 11 characters, to
add an "M" to the contents of the cell. Is this possible?

Thanks in advance.

Perfect--Just what I needed. Thanks!

-----Original Message-----
One way:

Public Sub AddM()
Dim rCell As Range
For Each rCell in Range("B1:B" & _
Range("B" & Rows.Count).End(xlUp).Row)
If Len(rCell.Text) 11 Then _
rCell.Value = rCell.Text & "M"
Next rCell
End Sub



In article ,
"Janna" wrote:

I would like a macro that if a cell in a column (for
example, column B) contains more than 11 characters,
to
add an "M" to the contents of the cell. Is this
possible?

Thanks in advance.
.