Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
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.