This might help, please tell me if it does or if it doesn't:

....
Dim r as Range
Dim s as String

s=ActiveCell.Value
For Each r in Range("A5:E5")
r.Value=s
Next r

....

That should set the active cell value to the range "A5:E5"

"edm" wrote:

Hi

In the "Range("A5:E5").Select" statement I need to make the A5:E5 part
of it change as to whatever the active cell is at the time. I have no
idea as to what it will be before hand. Can anyone help me?

Erle