VBA Code to create new workbook

[fari1]

Hi, i need to have a code which will create a new workbook each time the code will run.
The scenerio is, i need to copy and paste three sheets from activeworkbook into new workbook,each time the code will create a new workbook and paste my three sheets into it and the name of the workbook will be with the value of cell A1 from activeworkbook sheet1. Hope i made my point clear.

 

[wigi]

Dim wb As Workbook
Set wb = Workbooks.Add