Sub SaveNew() Dim sFileName As String, SFilePath As String sFileName = ThisWorkbook.Name SFilePath = "C:\Temp\" Application.ScreenUpdating = False On Error GoTo errcather Sheets(Array("RPV", "RPV (2)")).Copy On Error GoTo 0 ActiveWorkbook.SaveAs Filename:=SFilePath & sFileName ActiveWorkbook.Close Savechanges:=False errcather: MsgBox "One or more the worksheets does not exist in this workbook" Application.ScreenUpdating = True End Sub
|Steps to program a particular database app using access and any programming language.||16||36|
|excel cannot open the file because the file format or file extension is not valid||5||32|
|.NET tools for adding thread safety to a web app?||3||14|
|How do I crate a Pivot table in Excel||2||9|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!