Hi Erik
you may explain in total what you're trying to achieve. The code you
posted will just copy the formulas from sheet 1 to sheet 2. It will not
copy formats!

Where did you insert the code and how did you invoke this macro?


--
Regards
Frank Kabel
Frankfurt, Germany

Erik wrote:
Frank,
I inserted the sub do_copy above the cell formatting sub on sheet2,
but I can't seem to get any results. I am trying to get the values
in the cells from sheet1 to automatically copy to the identical cells
in sheet2. I tried it with a formula in each cell of sheet2, but the
code didn't recognize the values an therefore didn't format the cell
color. I have long since exceded my technical/programming knowledge,
so please be explicit with any advice you may have. Thanks. Erik

----- Frank Kabel wrote: -----

Hi Erik
this depends on what you're trying to achieve. If you want to
invoke this copy operation manually you may create the following
sub: sub do_copy()
worksheets("Sheet1").Cells.Copy
worksheets("Sheet2").Range("A1").Pastespecial paste:=xlFormulas
end sub

And start this manually or assign a button to this macro.

--
Regards
Frank Kabel
Frankfurt, Germany

Erik wrote:
From Mr. Ogilvy and Mr. deBruin, I have:
worksheets("Sheet1").Cells.Copy
worksheets("Sheet2").Range("A1").Pastespecial
paste:=xlFormulas
I'm having a little trouble with where to put it and how to
put it there. I already have code on both sheets to color the
cells based on text value. Do I add these two lines at the
bottom of the existing code and if so which sheet do I add it
to? Thanks in advance for any help.
Erik