Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Sub SAVEASCSV() Dim ws As Worksheet, newWb As Workbook Application.ScreenUpdating = False For Each ws In Sheets(Array("CONTRACT", "LOC", "REINS")) ws.Copy Set newWb = ActiveWorkbook With newWb .SAVEAS ws.Name, xlCSV .Close (False) End With Next ws 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.