Hello- I'm looking for a way of automating the replacement of a variable list
of numbers preceded by a name & then repeat until a blank space. For example:

Start With End With
Name1 Name1
33333 Name1
33334 Name1
33335 Name1
Name2 Name2
44444 Name2
44445 Name2
44466 Name2

Thanks in advance!

Here's something simple to get you started, select the first cell with a name
in it, all cells to be replaced must be numbers only.
Sub ReplaceNumeric()
Do
If IsNumeric(ActiveCell) Then
ActiveCell.PasteSpecial xlPasteAll
Else
ActiveCell.Copy
End If
ActiveCell.Offset(1).Select
Loop Until ActiveCell = ""
End Sub
--
Charles Chickering

"A good example is twice the value of good advice."


"David127" wrote:

Hello- I'm looking for a way of automating the replacement of a variable list
of numbers preceded by a name & then repeat until a blank space. For example:

Start With End With
Name1 Name1
33333 Name1
33334 Name1
33335 Name1
Name2 Name2
44444 Name2
44445 Name2
44466 Name2

Thanks in advance!

This worked out great. Thanks!!!

"David127" wrote:

Hello- I'm looking for a way of automating the replacement of a variable list
of numbers preceded by a name & then repeat until a blank space. For example:

Start With End With
Name1 Name1
33333 Name1
33334 Name1
33335 Name1
Name2 Name2
44444 Name2
44445 Name2
44466 Name2

Thanks in advance!