Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
Sub SplitWorkbook() Dim sht As Worksheet For Each sht In ThisWorkbook.Sheets If sht.Name <> "main" Then sht.Copy With ActiveSheet.Cells .Copy .PasteSpecial Paste:=xlPasteValues .PasteSpecial Paste:=xlPasteFormats End With ActiveWorkbook.SaveAs Filename:="C:\my documents\team\mi\new\" & sht.Name & ".xls" ActiveWorkbook.Close savechanges:=False End If Next sht End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|78 files, need to delete row 2 in every file||3||34|
|how to read data from all excel sheet and copy it in in Master sheet||2||28|
|Excel - Active X Checkboxes Groups||45||38|
|Vlookup (Microsoft Excel Programming)||5||31|
Join the community of 500,000 technology professionals and ask your questions.