A one liner might do it:[vba]ThisWorkbook.Colors = Workbooks.Open("C:\Documents and Settings\Someone\My Documents\Logging.xls").Colors[/vba] but will leave open the workbook you're grabbing the colours from, so this might be a bit better:[vba]Application.ScreenUpdating = False
Set wb = Workbooks.Open("C:\Documents and Settings\Someone\My Documents\Logging.xls")
ThisWorkbook.Colors = wb.Colors
wb.Close False
Application.ScreenUpdating = True[/vba]