Copy All Selected Sheets into new workbook and leave dialogue box open to select location to save file

[blaker]

I have the below code to save one selected sheet into a new workbook (Macro Enabled) using the active sheet range b12 at the file name..

how would I change the code to Copy all selected sheets into new workbook (Macro Enabled) still using the active sheet range b12 for the file name and leave the Dialogue box open to choose the location to save the new file.

here is the code I have so far...

Private Sub CommandButton23_Click()
Dim filename As Variant
Dim Path As String

ActiveSheet.Copy

ActiveWorkbook.SaveAs filename:=Range("b12") & Format(Date, "ddmmyyyy") & ".xlsm", FileFormat:=52


ActiveWorkbook.Close


End Sub

Thanks for any help with this!!