abdelfattah
Well-known Member
- Joined
- May 3, 2019
- Messages
- 1,430
- Office Version
- 2019
- 2010
- Platform
- Windows
hello
i have this code to save each sheet to the folder which opened the file but i don't save the home of sheet i would choose specific sheets
i have this code to save each sheet to the folder which opened the file but i don't save the home of sheet i would choose specific sheets
VBA Code:
Sub SAVESHEETS()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
For Each sh In ThisWorkbook.Worksheets
sh.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"
ActiveWorkbook.Close False
Next
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub