Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet Overwrite Macro Change
Hi All, I am using this macro to automatically copy worksheets from other files to this file. This has the code for automatically naming the new worksheets with the count number when a worksheet of the same name already exists in the file. I want to take off this feature. I want the macro to overwrite the sheets without uniquely naming the new sheets I tried taking off the two lines of code. . but it gives me errors. Can somebody help me. . Here is the code. Option Explicit Sub CombineFiles() Dim Path As String Dim FileName As String Dim Wkb As Workbook Dim WS As Worksheet Application.EnableEvents = False Application.ScreenUpdating = False Path = "C:\Documents and Settings\Desktop" FileName = Dir(Path & "\*.xls", vbNormal) Do Until FileName = "" Set Wkb = Workbooks.Open(FileName:=Path & "\" & FileName) For Each WS In Wkb.Worksheets WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Cou nt) Next WS Wkb.Close False FileName = Dir() Loop Application.EnableEvents = True Application.ScreenUpdating = True End Sub -- biojunkie ------------------------------------------------------------------------ biojunkie's Profile: http://www.excelforum.com/member.php...o&userid=17859 View this thread: http://www.excelforum.com/showthread...hreadid=391906 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Worksheet Change Macro Help | Excel Discussion (Misc queries) | |||
Worksheet change macro for paste special | Excel Discussion (Misc queries) | |||
Worksheet change Macro Question | Excel Discussion (Misc queries) | |||
Worksheet change Macro part 2 | Excel Discussion (Misc queries) | |||
Overwrite Master sheet when using merge macro | Excel Programming |