i had some time so i made this.. quick simple... let me know if you need more
help

Sub copynewbook()
'
' copynewbook Macro
'
'
Dim wbName As String
Dim wsName As String
Dim strSheet As String

wbName = ThisWorkbook.Name
wsName = "Master"
strSheet = Workbooks(wbName).Worksheets(wsName).Range("A1").Value

Workbooks(wbName).Worksheets(strSheet).Activate
Workbooks(wbName).Worksheets(strSheet).Select
Workbooks(wbName).Worksheets(strSheet).Copy

ActiveWorkbook.SaveAs strSheet & ".xls"
Workbooks(strSheet & ".xls").Close
End Sub