How to transfer cell colors and formats using "With" statements?

[chuckchuckit]

Here is "With" code that transfers data:

[COLOR=black][FONT=Verdana]With Range("A1:B2")<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]   Range("D5").Resize(.Rows.Count, .Columns.Count) = .Value<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]End With<o:p></o:p>[/FONT][/COLOR]

It does not transfer cell colors, fonts, row heights, or column widths etc. How would I modify (or add to) the above code to transfer such without using the "copy" command?

Am trying to avoid using the clipboard, which the "copy" command uses.

Thanks.

Chuck<o></o>
<o></o>

 

[chuckchuckit]

Can't seem to get it to work for more than one cell at a time, as it seems to combine different cell attributes in ranges.

But you got me in the right direction where I now can apply everything to a cell and just loop through cells if needed.

Unless I missed something.

Thanks again John

Chuck