macro to add alpha character to cell contents

[Janna]

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.

 

[JE McGimpsey]

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

 

[Janna]

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




.