Copying Formats using VBA (hopefully w/o PasteSpecial cmd)

[buffalo]

Hi

I have to copy from SrcSheet to DestSheet the data in A1:AA400

Set SourceRange = Src.Range("A1:AA400")
Set DestRange = DestSheet.Range(A1)
Set DestRange = DestRange.Resize(SourceRange.Rows.Count, SourceRange.Columns.Count)
DestRange.Value = SourceRange.Value

...How do I copy the formats w/o explicitly using PasteSpecial type command? Something like SourceRange.Format etc??

 

[Norie]

If you only want to copy the formats there's not really another way other than using PasteSpecial.

You would either need to do a straight copy, then 2 paste specials - one for values and one for formats.

Or with the existing code, which is basically doing a paste special values, just do the paste special for the formatting.