I believe that you would have to restore each property (Color/ColorIndex,
Pattern, PatternColor/PatternColorIndex) of the Interior object
individually; e.g.:

rngTest(x, y).Interior.Color = interiorTemp.Color

etc.

Note that this will not help with the formatting of the cell contents (Bold,
Font, Color/ColorIndex, etc.).

--

Vasant


"Ava" <dontspam@comeon wrote in message
...
For a special project I need to be able to copy the contents of one cell
to another *including* all formatting. Sometimes I cannot help but to
overwrite a cell I need later on. The tricky part comes when I have to
recall the lost formatting of that overwritten cell. I basically don't
have, or want, permission to rework any sheets that this little 'machine'
is going to be attached to, nor do I want to put such a burden on its
users.

For instance, I can get .Interior and put it in an object variable like
this:

Dim interiorTemp as Interior

Set interiorTemp = rngTest(x, y).Interior

Now interiorTemp has all parameters for font, pattern and their color.
Nifty. But I cannot find *any* simple way to do the reverse:

Set rngTest(x, y).Interior = interiorTemp (Error 13, types don't
match)

The help in my version of Excel doesn't specify this but someone pointed
out to me these objects are read-only. I find that unbelievable, but fact
is, I cannot restore.

Some forum members (not this forum) told me to swap the styles. But the
cells could have any additional formatting that is not stored in a Style.

I could write a lot of code and restore the members of the saved objects
one-by-one. If I didn't have to swap I could use rngsource.Copy
rngdestination, which seems to do everything I need, until I need to swap
contents of two cells.

So, the simple question is: How do I put saved formatting into a cell? Is
it possible?

Ava.