New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Sub CopyToNew() Dim ws As Worksheet Sheets(Array("SO")).Copy For Each ws In ActiveWorkbook.Worksheets ws.UsedRange.Value = ws.UsedRange.Value Next ws Application.DisplayAlerts = False ActiveWorkbook.SaveAs "\\BCAR1\BCAR-Net\IT\Excel Spreadsheets\Daily SO Report\Daily SO Report.xlsx" Application.DisplayAlerts = 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.