Perhaps something along these lines (untested):
Code:
Sub blah()
Set SceWkBk = ThisWorkbook 'or whatever the source workbook is.
Set DestWkBk = Workbooks("something.xls") 'or whatever the estination workbook is.
For Each SceSheet In SceWkBk.Sheets
Set DestSht = DestWkBk.Sheets(SceSht.Name)
For Each cll In SceSht.UsedRange.Cells
DestSht.Range(cll.Address).Interior.ColorIndex = cll.Interior.ColorIndex
Next cll
Next SceSht
End Sub
I'm using Excel 2003 here right now and it might be you want to copy more/different cell properties across. Record a macro of your making some cell format changes of the ilk that you want to copy across, look at the code, and you can usually delete 90% of the properties therein as they're the default values anyway. If you're not sure, post a copy of the recorded macro here and say what aspects of the cell formatting you want to transfer.
Bookmarks