![]() |
Copy/Paste Values & Formats from each Sheet & Book in Folder A to B.
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 |
All times are GMT +1. The time now is 09:30 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com