creates folder with book name save each sheet / page separately Free Excel Macros (VBA) | Excel Programs

Warning: session_start() [function.session-start]: Cannot send session cookie - headers already sent by (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Excel Free Macros (VBA)

Creates Folder With Book Name Save Each Sheet / Page Separately

Online Excel and Excel Macro (VBA) Courses

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Option Explicit 
  
Sub sayfalari_ayir_kaydet() 
    Dim Sheet As Worksheet, SheetName$, MyFilePath$, N& 
    MyFilePath$ = ActiveWorkbook.Path & "" & _ 
    Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) 
    With Application 
        .ScreenUpdating = False 
        .DisplayAlerts = False 
         On Error Resume Next 
        MkDir MyFilePath 
        For N = 1 To Sheets.Count 
            Sheets(N).Activate 
            SheetName = ActiveSheet.Name 
            Cells.Copy 
            Workbooks.Add (xlWBATWorksheet) 
            With ActiveWorkbook 
                With .ActiveSheet 
                    .Paste 
                    .Name = SheetName 
                    [A1].Select 
                End With 
                  
                .SaveAs Filename:=MyFilePath _ 
                & "" & SheetName & ".xls" 
                .Close SaveChanges:=True 
            End With 
            .CutCopyMode = False 
        Next 
    End With 
    Sayfa1.Activate 
End Sub

Report problem with this macro

Report error

ALL MACROS

Youtube Channel
The following macros may be useful for you.

Similar Results
No	Macro Name
1	creates folder with book name save each sheet / page separately
2	excel operators hk
3	save each sheet / page separately as a book
4	specifies in detail how many references the book contains (on new sheet / page)
5	specifies in detail how many formulas are in the book (on new sheet / page)
6	list formulas on new sheet / page
7	finds formulas on active sheet / page lists new sheet / page
8	remove sheet / page protections
9	save book you specify name - notifies you by message
10	desktop icon creation
11	create shortcut to desktop
12	lists the named cells in detail on the wb_names sheet / page
13	creates a copy of the book by deleting userformmodulclass
14	browse folder xls list
15	show file path list in detail fields of files file path etcâ € ¦
16	copies active sheet / page email
17	sheet / page address and set column width
18	perfectly deletes the menu to the right mouse and adds print print preview sheet / page structure
19	add icons menus and buttons to the sheet / page
20	right mouse on active sheet / page menu

Excel Free Macros (VBA)

Creates Folder With Book Name Save Each Sheet / Page Separately

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords