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
|Tags from access to excel||3||28|
|Dlook problems updating an unbound textbox from a table with criteria from another unbound textbox||3||16|
|Comparison between two sheet and addition of an item from second sheet - Excel Query AP||5||17|
|How do i remove text in between commas in Excel?||14||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
23 Experts available now in Live!