Hi there guys.

I have this Search and Replace Macro:

Public Sub Priority()

For Each cell In Selection
cell.Value = Replace(cell.Value, "xxx", "B4.Value")
Next cell
End Sub

As you can see,
the outcome is that xxx becomes "B4.Value", instead of 0001, which is cells' B4 value.
note that each day 0001 changes (to 0002 and so on...)

How can I do the macro to put in real B4.Value and not B4.Value as text?

Thanks ahead!