Get a macro to edit cells

[carusorm]

I need a macro to edit existing cells that contain text by going to the end of what's already in the cell and enter MARIETTA in it. It is probably something simple but everytime I try it the relative reference button grays out and the macro does not edit and add the text described above.

 

[zzydhf]

Welcome to the board!
Unless you hava a very large range, a formula in the next column would work (=a1&" Marietta"), copy down, then copy that column and paste special values over the current column.

However, here is a macro that will do it. It only works for cell with a text value. not numeric and not blank. Modify to suite...
Sub add_marietta()
Set RangeToCheck = Range("A1:c10")
For Each Cell In RangeToCheck
If IsNumeric(Cell) Then
ElseIf Cell.Value <> "" Then
Cell.Value = Cell.Value & " MARIETTA"
Else
End If
Next Cell
End Sub

HTH

 

[rikrak]

Hi,
What about this:
<pre>
Sub AddMarietta()
ActiveCell.Value = ActiveCell.Value & "MARIETTA"
End Sub
</pre>

 

[carusorm]

THANKS THAT WORKED GREAT AND YOU MADE IT SO EASY. I HAVE SPENT THE MORNING TRYING TO DO THIS.