Select the range and run:
Sub AddSuffix()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Selection
With cell
If Not .HasFormula Then
.Value = .Value & "scc"
End If
End With
Next
Application.ScreenUpdating = True
End Sub
---
HTH
Jason
Atlanta, GA
-----Original Message-----
I want to add the suffix "scc" into the contiguous cells
of several columns
on an existing Excel spreadsheet. There is existing
data (alpha/numeric) in
each of the cells already, so the scc suffix would be
added to the right of
the existing entries. I'm trying to avoid having to
enter each suffix into
each cell individually. I have Excel 2002 and Windows
XP Professional.
Thank you.
.
|