macro to add alpha character to cell contents
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.
.
|