Excel VBA - Copy worksheet to a new workbook and rename

How to copy worksheet to a new workbook in VBA?
How to save a workbook using the name of the worksheet?

Functions:
1. For Each ws In ActiveWorkbook.Worksheets
2. ws.Copy
3. ChDir "PASTE YOUR PATH HERE"
4. ActiveWorkbook.SaveAs Filename:="PAST YOUR PATH HERE\" & ActiveSheet.Name & ".xlsx"
5. ActiveWorkbook.Close

Remark: to save as "Macro-Enabled" workbook, use ".xlsm".