Forgive me, I am new at Excel macros. I have a spreadsheet with
thousands of cells that now require extra text be added to the existing
data already in the cell. The extra text is the same for all cells
involved. I tried creating my own macro using record, doing the steps,
and stop recording but it applies the action to the original cells
rather than any new cells. I want to add "<brSteel (Zinc Plated)" to
each cell.

Here is what I have so far:
ActiveCell.FormulaR1C1 = "<brSteel (Zinc Plated)"

Thanks for the help!

*** Sent via Developersdex http://www.developersdex.com ***

Hi Tim

take this sub and change it for your purpose:

Sub abb_bla()

Dim cell As Range

For Each cell In UsedRange
cell.Value = cell.Value & "<brSteel (Zinc Plated)"
Next cell

End Sub

hope that helps

Carlo


On Jan 29, 10:51*am, Tim New wrote:
Forgive me, I am new at Excel macros. *I have a spreadsheet with
thousands of cells that now require extra text be added to the existing
data already in the cell. *The extra text is the same for all cells
involved. *I tried creating my own macro using record, doing the steps,
and stop recording but it applies the action to the original cells
rather than any new cells. *I want to add "<brSteel (Zinc Plated)" to
each cell.

Here is what I have so far:
ActiveCell.FormulaR1C1 = "<brSteel (Zinc Plated)"

Thanks for the help!

*** Sent via Developersdexhttp://www.developersdex.com***

Carlo,
When I run it, I get a error at Next cell saying: Next without For.
Here is what I now have:
Sub Macro8()
'
' Macro8 Macro
' Macro recorded 1/28/2008 by Timothy
'
' Keyboard Shortcut: Ctrl+e
'
ActiveCell.FormulaR1C1 = cell.Value & "<brSteel Fitting (Zinc
Plated)"
Next cell

End Sub





*** Sent via Developersdex http://www.developersdex.com ***

I change the macro to:
Sub Macro8()
'
' Macro8 Macro
' Macro recorded 1/28/2008 by Timothy
'
' Keyboard Shortcut: Ctrl+e
'
Dim cell As Range

For Each cell In UsedRange
cell.Value = cell.Value & "<brSteel (Zinc Plated)"
Next cell

End Sub

I now get runtime error 424 Object Required

*** Sent via Developersdex http://www.developersdex.com ***

On Jan 29, 11:23*am, Tim New wrote:
Carlo,
When I run it, I get a error at Next cell saying: Next without For.
Here is what I now have:
Sub Macro8()
'
' Macro8 Macro
' Macro recorded 1/28/2008 by Timothy
'
' Keyboard Shortcut: Ctrl+e
'
* * ActiveCell.FormulaR1C1 = cell.Value & "<brSteel Fitting (Zinc
Plated)"
* * Next cell

End Sub

*** Sent via Developersdexhttp://www.developersdex.com***

Hey Tim

well you don't have a For, that's what it says. try this:


Sub Macro8()
dim cell as range

for each cell in selection
cell.FormulaR1C1 = cell.Value & "<brSteel Fitting (Zinc Plated)"
Next cell

End Sub

hope that helps
Carlo

Carlo,
That worked! I dont care what everyone else says, you're the best. You
saved me tons of time and gave me a learning experience.
Thanks!
Timothy



*** Sent via Developersdex http://www.developersdex.com ***

On Jan 29, 12:04*pm, Tim New wrote:
Carlo,
That worked! *I dont care what everyone else says, you're the best. *You
saved me tons of time and gave me a learning experience.
Thanks!
Timothy

*** Sent via Developersdexhttp://www.developersdex.com***

What exactly do you mean with: "what everyone else says"?

glad that it worked, thanks for your feedback

Carlo