Pplication screenupdating false
I have a workbook created in XL 2000, which means it is limited to a max of 256 columns. Having opened the workbook in XL 2007, when I come to close it I get a compatibility warning that says since I'm going to save it in (its native) format I'm going to loose columns beyond 256!
Cut Copy Mode = False End With Hi You have two options 1: create a PDF (code is on my site for 2007) 2 create a loop that create a new workbook Add a new sheet and copy the visible data to this sheet. Special Cells(xl Cell Type Visible) On Error Go To 0 Source. Application events and their related event procedures are very much like events of the or create a dedicated class module to handle events.Neither approach, using an existing module or creating a dedicated module, has any real advantage over the other. The events in are executed in the Sheet module first (if the event is declared), then in the Workbook module (if the event is declared) and finally in the Application module.If this was not the case, I could have simply used an array statement that Ron De Bruin uses in one of his other email macro examples. Any alternative methods which could be effective and efficient, are also welcome. Select 'Assigning source workbook's sheet name to the copied sheet in this new workbook . Let me know if you need more help -- Regards Ron de Bruin i Try this one for "sheet1" and "Sheet3" Sub Mail_Range_test() 'Working in 2000-2007 Dim Source As Range Dim Dest As Workbook Dim wb As Workbook Dim Temp File Path As String Dim Temp File Name As String Dim File Ext Str As String Dim File Format Num As Long Dim Out App As Object Dim Out Mail As Object With Application . Enable Events = False End With Set wb = Active Workbook Set Dest = Workbooks. Introduction If you program VBA using events and event procedures (see this page for information about working with events), you may find Application level events useful.I would very strongly recommend that you read the Events And Event Procedures page prior to working with Application events. I am not opposed to all new coding: ' save worksheet with this file name File Path Name = Sheets("Data"). (working copy) In short, both worksheet are almost identicle except, one we update multiple times throughout the day (working copy), and the other on (Master) an as needed basis. Here is the code I used to copy one worksheet, but I can not figure out how to do two. Range("I21") & "\" & Date$ & ".xls" newsht = Active Sheet. (master) Workbook2 has a sheet called repository and it has multiple rows and columns of data. Version) Hello, I would like to copy two worksheets (formatting and all...) from one workbook and create a new workbook with just those two sheets. example: Workbook1 has a sheet called repository and it has multiple rows and columns of data. Name & " " _ & Format(Now, "dd-mmm-yy h-mm-ss") If Val(Application. Hi All, I would really appreciate some help with the following: 1. Thanks, Steve Hello All, How can I compare a sheet from one workbook against another sheet in another workbook.