I'm trying to copy a worksheet to another workbook while retaining the color formatting of the ActiveWorkbook.
This is the Code that I'm using which isn't working. Any help appreciated.
This is the Code that I'm using which isn't working. Any help appreciated.
Code:
Sub copy_OneWorkSheet()
Dim wb1 As Workbook
Dim wb2 As Workbook
Set wb1 = ActiveWorkbook
Set wb2 = Workbooks("los_2011.xls").Sheets(2)
' Set Color of 1 workbook to another
'Change the name of the destination workbook here
wb1.Colors = wb2.Colors
ActiveWorkbook.ActiveSheet.Select
ActiveSheet.Copy Before:=Workbooks( _
"July_2011.xls").Sheets(1)
End Sub