Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.