Копирование области печати в новую книгу

[Барсук]

Доброго времени суток.
Помогите, пожалуйста, есть такая задача: существует файл в котором заданы области печати, нужно их считать и скопировать в новый файл (создать его). Области печати находятся на разных листах и должны быть скопированы в новую книгу тоже раздельно

[Барсук]

Доброе утро!
xxxname = ActiveWindow.SelectedSheets(1).Name
xxxSheetsNum = Worksheets.Count
xxxSheetRes = 0

For xxxCurSheet = 1 To xxxSheetsNum
If Worksheets.Item(xxxCurSheet).Name = "colors" Then
xxxSheetRes = xxxCurSheet
End If
Next xxxCurSheet
xxxCommon = Worksheets.Item(xxxSheetRes).Cells( xxx1, 7).Value ' öâåò
xxxColor = Worksheets.Item(xxxSheetRes).Cells( xxx2, 7).Value ' öâåò

xxxReplace = True
For xxxCurSheet = 1 To xxxSheetsNum
If (Worksheets.Item(xxxCurSheet).Tab.C olor = xxxCommon) Or (Worksheets.Item(xxxCurSheet).Tab.C olor = xxxColor) Then
Worksheets.Item(xxxCurSheet).Select Replace:=xxxReplace
xxxReplace = False
End If
Next xxxCurSheet

ActiveWindow.SelectedSheets.xlSourc ePrintArea.Copy
Sub CopyByTabColor(xxx1 As Integer, xxx2 As Integer)
' выделение листов с цветами ярлычков, соответствующими цветам, указанным в строках xxx1 и xxx2 колонки 7(G) листа Colors
xxxname = ActiveWindow.SelectedSheets(1).Name
xxxSheetsNum = Worksheets.Count
xxxSheetRes = 0

For xxxCurSheet = 1 To xxxSheetsNum
If Worksheets.Item(xxxCurSheet).Name = "colors" Then
xxxSheetRes = xxxCurSheet
End If
Next xxxCurSheet
xxxCommon = Worksheets.Item(xxxSheetRes).Cells( xxx1, 7).Value ' цвет
xxxColor = Worksheets.Item(xxxSheetRes).Cells( xxx2, 7).Value ' цвет

xxxReplace = True
For xxxCurSheet = 1 To xxxSheetsNum
If (Worksheets.Item(xxxCurSheet).Tab.C olor = xxxCommon) Or (Worksheets.Item(xxxCurSheet).Tab.C olor = xxxColor) Then
Worksheets.Item(xxxCurSheet).Select Replace:=xxxReplace
xxxReplace = False
End If
Next xxxCurSheet

ActiveWindow.SelectedSheets.xlSourc ePrintArea.Copy

Else
MsgBox ("не скопировано")
End If
Worksheets(xxxname).Select Replace:=True

End Sub

правил из готового решения, может есть вариант по проще?