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