U
u473
Copy/Paste Values & Formats only (Not Formulas)
from each Worksheet and Worbook in Folder A to Folder B.
For presentation/printing purpose, the Folder Source A in Path C:\My
Documents, contains
a Workbook named ProjList with Sheet1 Column A containing Workbooks
names.
The rough outline of what I am trying to achieve is as follows :
For Each Workbook in ProjList Sheet1 in Folder A
For Each WorkSheet
WorkSheetType = Right(WorkSheet.Name,1)
Select Case WorkSheetType
Case "a"
Delete Columns P thru AA
Delete Rows 50 thru 60
Case "g"
All margins to Zero
PaperSize : 8.5 x 11
Fit to 1 Page High, 1 Page Wide
Case Else
End Select
Next WorkSheet
Copy/Paste Workbook Values & Formats only to Folder B
(Leave Folder Source A unchanged)
Next Workbook
Print 5 sets of all Folder B content
Thank you for your Help
Wayne
from each Worksheet and Worbook in Folder A to Folder B.
For presentation/printing purpose, the Folder Source A in Path C:\My
Documents, contains
a Workbook named ProjList with Sheet1 Column A containing Workbooks
names.
The rough outline of what I am trying to achieve is as follows :
For Each Workbook in ProjList Sheet1 in Folder A
For Each WorkSheet
WorkSheetType = Right(WorkSheet.Name,1)
Select Case WorkSheetType
Case "a"
Delete Columns P thru AA
Delete Rows 50 thru 60
Case "g"
All margins to Zero
PaperSize : 8.5 x 11
Fit to 1 Page High, 1 Page Wide
Case Else
End Select
Next WorkSheet
Copy/Paste Workbook Values & Formats only to Folder B
(Leave Folder Source A unchanged)
Next Workbook
Print 5 sets of all Folder B content
Thank you for your Help
Wayne