Try this in place of my last code
Code:Application.DisplayAlerts = False Do While ThisWorkbook.Worksheets.Count > 2 ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Delete Loop Application.DisplayAlerts = True Set BaseWks = ThisWorkbook.Worksheets(2)
Try this in place of my last code
Code:Application.DisplayAlerts = False Do While ThisWorkbook.Worksheets.Count > 2 ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Delete Loop Application.DisplayAlerts = True Set BaseWks = ThisWorkbook.Worksheets(2)
A dream is not something you see when you are asleep, but something you strive for when you are awake.
It's usually a bad idea to say that something can't be done.
The difference between dream and aim, is that one requires soundless sleep to see and the other requires sleepless efforts to achieve
Join us at Facebook
Hi, -
This seems woking fine. However the file i am copying contains password (same password for all files), and this code gives me an debug option about the protected sheets. and highlights .value=.value
Where shoud i define the password in this code to resolve this.
Writeright before that lineCode:.parent.unprotect "passwordhere"
A dream is not something you see when you are asleep, but something you strive for when you are awake.
It's usually a bad idea to say that something can't be done.
The difference between dream and aim, is that one requires soundless sleep to see and the other requires sleepless efforts to achieve
Join us at Facebook
Posting Permissions
Reply With Quote
Bookmarks