Try something like this (no error handling):

'*********************************************
Option Explicit

Sub Extract_Current_Sheet_to_File()
Dim ws As Object
Dim strName As String
Dim strFN As String
Set ws = ActiveSheet
strName = ws.[a1]
strFN = strName & "xls"

Application.ScreenUpdating = False
Workbooks.Add
ws.Copy Before:=Sheets(1)
ActiveSheet.Name = strName
ActiveWorkbook.SaveAs Filename:=strFN, FileFormat:=xlNormal
Workbooks(strFN).Close
Application.ScreenUpdating = True
End Sub

code is very good and close, but might I suggest the following
modifications for it to work right:



Sub Extract_Current_Sheet_to_File()

Dim wsToSave As Worksheet

Dim strName As String

On Error Resume Next

strName = ActiveSheet.[a1]

Set wsToSave = Sheets(strName)

If wsToSave Is Nothing Then

MsgBox "There is no sheet  named " & strName & "."

Exit Sub

End If

Application.ScreenUpdating = False

wsToSave.Copy ' copy  this sheet to a new workbook, must use no
parameters

' should do some error checking here:

ActiveWorkbook.SaveAs Filename:=strName ' save  the new workbook

ActiveWorkbook.Close

'or in do the SaveAs and Close in one statement:

'ActiveWorkbook.Close SaveChanges:=True, Filename:=strName

Application.ScreenUpdating = True

If Dir(strName & ".xls") <> vbNullString Then

MsgBox strName & " was saved successfully"

Else

MsgBox strName & " was NOT saved successfully"

End If

End Sub

My VBA is horrible and reading these messages has gotten me thinking, would
this work to save  a sheet  that is a series of TRUE/FALSE named  cells with a
couple of named cells that have a number?

I ask because a file  I use has one sheet that helps populate the rest of the
workbook and it is a little hefty at 20MB. If I could save the named cells it
would cut the size down immensely and would require me to transport the saved
file between locations via email.

And if possible would the location  of the named cells matter? I mean would it
screw the VB up if the location of a named cell  was moved elsewhere on the same
sheet?

you could use a named  range instead of a named cell.. that way as long as the
name exits the range it equals can change...

your code exactly working in the desired manner. But
it is saving the file  on the desktop, can this be slightly modified
so that the file will be saved in the same location  where the
original file is saved?

Sub Extract_Current_Sheet_to_File()

Dim strName As String

Dim strPath As String



On Error Resume Next



strPath = ActiveWorkbook.Path ' <<<

strName = ActiveSheet.Range("A1").Value

Sheets(strName).Copy ' copy  this sheet  to a new workbook, must use no
parameters

ActiveWorkbook.SaveAs Filename:=strPath & "\" & strName

ActiveWorkbook.Close

End Sub

exactly working correctly...............

Your code is working but has certain problem:



The code is saving the activesheet as a separate  file but my need is not
that.



First I am giving some background:

I have a WB which downloads web data related to stock/shares The stock name
is put in cell  A1 of "Import" sheet. By another macro, I am saving the data
as a separate sheet  in the same WB. Suppose cell A1 contains stock code as
"ABC". Then the code downloads data related to stock "ABC". This data are
saved as a a separate sheet.

Now I change the cell A1 of "Import" sheet to stock code "XYZ" The data of
"xyz" are downloaded and saved as a separate sheet.



Now my requirement is :



I want to run the code from "Import" sheet. The code will save  the sheet,
based on name in cell A1 of "Import" sheet, as a separate file  . Suppose,
cell A1 contains "ABC" it will have to save the "ABC" sheet and not the
"Import" sheet. Your code is saving the "Import" sheet now. The name of the
file should also be "ABC". So that the data of ABC are saved as a separate
file.

yes this can be done... easiest would be to record a macro  of move/copy
worksheet and select new workbook  as destination once you have that code
substitute a variable for the worksheet name and you can just pass the value of
cell a1 to the variable when you rund the macro....

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

code does not work the way you want.
However, I posted code that does work and so did ohtechie.



The key lines of code are:



strSheetName = ActiveSheet.Range("A1").Value ' get desired sheet  name

Sheets(strSheetName).Copy ' copy  desired sheet into a new
workbook

ActiveWorkbook.SaveAs Filename:=strName ' save  the new workbook

ActiveWorkbook.Close ' close the new workbook



Please try this code. (!)