Are you only copying values? Will there ever be formulas?

how about

Dim c as range
For each c in Sheet1.Range("A6:A42")
if c.value<"" then
c.value=c.value & " " & Format(Now,"mm-dd")
end if
Next c

You would run this directly after the copy-paste routine. It might be
better to modify your existing routine, but difficult to suggest how without
seeing it.

Tim

"Desert Piranha"
wrote in
message news:Desert.Piranha.222edm_1137981301.681@excelfor um-nospam.com...

Hi All,
Every other cell in Sheet1 Column A from A6 to A 42 has text/numbers
copied from other workbooks.
The cells are formated as General.

My objective is (in those cells) to have the text or numbers followed
by the Month & Day (two digits each)
when ever the copy/paste macro is run, BUT won't change untill the
copy/paste code is run next week:

IE: if 0453 is pasted to a cell, and date is Janurary 12th, then cell
would display
0453 01/12

Some stuff that don't work:
'ActiveCell.Offset(1, 0).Value = Now
'rng.Offset(1, 0).Value = Now
'rng.Offset(1, 0).Value = "A4" & Now
'rng.Offset(1, 0).Value = A4 & Now & Format("mm/dd")
'rng.Offset(1, 0).Value = ("A4") & (Now & Format("mm/dd"))
'if(a4="",""(a4 & Format(Now, "mm-dd")))

Dont be disillusioned by the offset and stuff, i was concentrating on
the text and date.
I could name the cells for the range, as they are the same cells that
get copied over.
Any direction?


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=503878