If you want to copy selected worksheets from a workbook and save them in a new workbook.
Here is the code-
Dim wkbname As String
wkbname = "ashish"
' ADD SHEET NAMES here
ActiveWorkbook.SaveAs "C:\Documents and Settings\achamanlalko\Desktop\abc docs\" & wkbname & ".xlsx"