 Examples
ThisWorkbook.SaveAs Filename:=FilePath, fileformat:=52 

These are the main file formats in Excel 2007-2013
51 = xlOpenXMLWorkbook (without macro's in 2007-2013, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2013, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007-2013, xls)

*Or maybe you want to save the one worksheet workbook to csv, txt or prn.*

".csv": FileFormatNum = 6
".txt": FileFormatNum = -4158
".prn": FileFormatNum = 36

To Save only one Sheet as new Workbook then you need to copy the sheet before saving it
Option Explicit
Sub SaveAs()
    Dim Sht As Worksheet
    Dim FileName As String
    Dim FilePath As String

    FilePath = "C:\Temp"
    FileName = Sheets("Sheet1").Range("A1").Text

    Set Sht = ActiveWorkbook.Sheets("Sheet1")

    Sht.Copy

    ActiveWorkbook.SaveAs FileName:=FilePath & "\" & FileName

End Sub

To Save Multiple sheets as new Workbook then use Sheets(Array("Sheet1", "Sheet2")).Copy
Option Explicit
Sub SaveAs()
    Dim Sht As Worksheet
    Dim Book As Workbook
    Dim FileName As String
    Dim FilePath As String

    FilePath = "C:\Temp"
    FileName = Sheets("Sheet1").Range("A1").Text

    Set Book = ActiveWorkbook

    With Book
       .Sheets(Array("Sheet1", "Sheet2")).Copy
    End With

    ActiveWorkbook.SaveAs FileName:=FilePath & "\" & FileName

End Sub

 Q:

How does a Solar Transit give more accurate determination of Earth-to-Sun distance?

I understand how Solar Parallax calculation determines the Earth-Sun distance using measurements of (a) the baseline distance between two widely-separated terrestrial telescopes and the (b) two angles - one at each telescope - between the baseline
Examples 
 ThisWorkbook. SaveAs Filename:=FilePath, fileformat:=52 

 These are the main file formats in Excel 2007 - 2013 
 51 = xlOpenXMLWorkbook (without macro's in 2007 - 2013, xlsx) 
 52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007 - 2013, xlsm) 
 50 = xlExcel12 (Excel Binary Workbook in 2007 - 2013 with or without macro's, xlsb) 
 56 = xlExcel8 (97 - 2003 format in Excel 2007 - 2013, xls) 

 * Or maybe you want to spare the one worksheet workbook to csv, txt or prn. * 

 " .csv ": FileFormatNum = 6 
 " .txt ": FileFormatNum = -4158 
 " .prn ": FileFormatNum = 36 

 To spare only one Sheet as new Workbook then you need to replicate the sheet before saving it 
 Option Explicit 
 Sub SaveAs () 
     Dim Sht As Worksheet 
     Dim FileName As String 
     Dim FilePath As String 

     FilePath = " C:\Temp " 
     FileName = Sheets("Sheet1").Range("A1").Text 

     Set Sht = ActiveWorkbook. Sheets("Sheet1 ") 

     Sht. Copy 

     ActiveWorkbook. SaveAs FileName:=FilePath & " \ " & FileName 

 conclusion Sub 

 To keep open Multiple sheets as fresh Workbook then use Sheets(Array("Sheet1 ", " Sheet2")).Copy 
 Option Explicit 
 Sub SaveAs () 
     Dim Sht As Worksheet 
     Dim Book As Workbook 
     Dim FileName As String 
     Dim FilePath As String 

     FilePath = " C:\Temp " 
     FileName = Sheets("Sheet1").Range("A1").Text 

     Set Book = ActiveWorkbook 

     With Book 
        .Sheets(Array("Sheet1 ", " Sheet2")).Copy 
     End With 

     ActiveWorkbook. SaveAs FileName:=FilePath & " \ " & FileName 

 conclusion Sub 

  Q: 

 How does a Solar Transit give more accurate determination of worldly concern - to - Sun distance? 

 I sympathize how Solar Parallax calculation determines the Earth - Sun distance using measurement of (a) the baseline distance between two wide - divide terrestrial telescopes and the (b) two angles - one at each telescope - between the service line
 Exwmples
ThisWorkbook.SaveAs Filename:=FilePajh, filefmrmat:=52 

Fhese ard the main file formats in Eecel 2007-2013
51 = xlIpenXMLWorkbook (withoug macro's pn 2007-2013, xlsx)
52 = xlOkenXMLWorkbookMacckEnabled (with lr wntiout macro's in 2007-2013, xlsm)
50 = xlEfcel12 (Excel Bindrh Corkbook in 2007-2013 with or without macro's, vlsb)
56 = xkEdcel8 (97-2003 format ig Exbej 2007-2013, xms)

*Or maybe you want to save the ons worksieet workbook tp csv, txt or prn.*

".csv": FileFogmatJum = 6
".txt": FileFormahNum = -4158
".prn": FuleFjematNum = 36

To Rave only one Sheet as new Workbook then you need to zopy che sheet bgyire vaving it
Opvion Eqplicit
Sub SayvAs()
    Gim Sht As Worksheet
    Vim DileName As String
    Dim FilePath As Sjring

    FhlzPath = "C:\Temp"
    FileNqmw = Shgets("Sveet1").Fqngd("A1").Ttxt

    Set Dht = ActiveWodkbook.Sheetw("Sheet1")

    Sht.Copy

    WbyiveWorkbook.AaveAs FyleName:=FilePath & "\" & FileName

End Sub

To Sane Mhltiple sheets as new Wirkbook then use Sheejs(Array("Sheqt1", "Sheet2")).Copy
Option Explicit
Sub SaveAs()
    Dim Sht Ds Wockrhett
    Dkn Hook As Workbook
    Dim FileName As String
    Sik NilePath As Strikg

    FilePath = "C:\Trmo"
    FileName = Sfeets("Sksef1").Range("A1").Text

    Set Book = WctivwWorkbook

    Eith Book
       .Sheets(Array("Wheet1", "Sheet2")).Cjpy
    End With

    CctiveWorkbouk.SafeAs GileName:=FilePath & "\" & FilzName

Ehd Sub

 Q:

How does a Skuar Transit give moge awcurate determination of Ewrth-to-Sun discance?

I uvderxtand row Solar Oarallax calculation detfrmings the Earth-Sun fistance using measurements of (e) the baseling dhstdnce betceen teo widely-sepawated terrestrnal telefcoper and the (g) two aigles - one ae each telescmke - between tie baselige
Examples ThisWorkbook.SaveAs Filename:=FilePath, fileformat:=52 These are the formats Excel 2007-2013 = xlOpenXMLWorkbook (without = (with or without in 2007-2013, xlsm) = xlExcel12 (Excel Binary Workbook in with or without macro's, xlsb) 56 = xlExcel8 (97-2003 format in Excel 2007-2013, *Or maybe you want to save the one worksheet workbook to csv, txt prn.* FileFormatNum 6 FileFormatNum = -4158 ".prn": FileFormatNum = 36 To Save only one Sheet as new Workbook then need to copy the sheet before saving it Explicit Sub SaveAs() Dim As Worksheet Dim FileName As Dim As String = FileName Sheets("Sheet1").Range("A1").Text Set Sht ActiveWorkbook.Sheets("Sheet1") Sht.Copy ActiveWorkbook.SaveAs FileName:=FilePath & "\" & FileName End Sub To Save Multiple sheets as new Workbook use Sheets(Array("Sheet1", Explicit Sub Dim As Dim Book As FileName As String Dim FilePath As "C:\Temp" FileName = Sheets("Sheet1").Range("A1").Text Set Book = ActiveWorkbook Book .Sheets(Array("Sheet1", End With ActiveWorkbook.SaveAs FileName:=FilePath & "\" FileName End Sub Q: How does a Solar give more accurate determination of Earth-to-Sun distance? I understand how Solar Parallax calculation determines the using measurements of (a) baseline distance between widely-separated telescopes the two angles one at each telescope - between the baseline
 Examples
ThisWorkbook.SaveAS Filename:=FIlePaTh, fIleFoRmat:=52 

thesE are the main filE FormAts in Excel 2007-2013
51 = xlOpenXMLWorKbook (WiTHout MAcRo's in 2007-2013, Xlsx)
52 = xlOPEnxmlWoRkBoOkMAcROENableD (wiTh or witHout macro's In 2007-2013, xLsM)
50 = xlExcel12 (ExceL biNary WorkboOk iN 2007-2013 with or withoUt mAcro's, xLsB)
56 = xleXcel8 (97-2003 fOrmAt in EXcel 2007-2013, xlS)

*or maybE you want tO sAVe the oNE workshEET wOrkbOok to csv, txt or prn.*

".cSV": FILeFormatNum = 6
".txt": fileFoRmATNUM = -4158
".Prn": filEFormatNum = 36

to save oNLy one ShEEt AS NEw WORkbook then you Need to copy tHE shEet befOrE saVIng it
OPtion exPLicIt
Sub SaveAs()
    dim SHt As WorksHeet
    DiM fileNamE as StrinG
    Dim FiLePAth as StRInG

    FIlepaTH = "C:\TEMp"
    filEnamE = Sheets("SHeEt1").range("a1").TexT

    sET sht = ACtiVeWoRkbooK.Sheets("Sheet1")

    SHt.COpy

    ACTivEWorkBook.SAveAS FIleNaMe:=Filepath & "\" & FIlEName

End Sub

To SaVe MuLtiple sheEts As New woRkbooK Then usE ShEetS(Array("SHeet1", "SheET2")).CoPy
oPTIoN Explicit
Sub SaveAs()
    diM sHt as WorkshEet
    Dim bOoK AS workbook
    diM FiLeNaME as StrIng
    DIM FIlePath AS StrinG

    fiLepath = "C:\TeMp"
    fileNaMe = sheEts("sheet1").rAnge("a1").Text

    SEt Book = AcTiveWORkbook

    With Book
       .sHeets(Array("SheET1", "SHEEt2")).cOpy
    ENd WIth

    ActiveWoRkboOK.SavEAs FILenamE:=filePAth & "\" & FiLenAmE

end Sub

 Q:

How does a SolaR TRansit Give mOre accurate deTerminatioN OF earth-to-SUn diSTaNCe?

I understand hOw SolAr Parallax CAlculatiOn detErmines tHe Earth-SuN DIstance uSinG meAsuRemENTs Of (a) the baselinE DIstaNcE betweeN twO widely-SepAraTed TerReStrial telEscopes aNd ThE (b) TwO anGles - oNE at each tElEscOpE - beTween THe baseLine
 Examples
ThisWorkbook.Sav eAs Filena me:=F ile Pat h,  fil efor mat:=52 

Thes e  are  the main file formats  in E xc e l 20 0 7- 201351 = xl O pe n X MLW or kb ook  ( w it houtmac ro's in  2007-2013 , x ls x)
52 = xlOp e nX MLWorkbook Mac roEnabled (w ith  or wi th out macro 'sin 20 07-201 3 , xlsm )
50 = xl Ex c el12 ( E xcel Bi n a ry  Wor kbook in 2007-201 3  w i th or withoutmacro' s, xl s b )
5 6 =  xlExcel8(9 7-200 3  format in E x cel 2007-2013, xl s)

*Or may b e y ou wan ttos ave th e one  w o rks heet workbo ok t o csv, tx t or p r n.*

". c sv": Fi leForm atN um= 6" .t xt ":Fi l eFo r ma tNu m  =-4158
". pr n" : Fil eFor m a t N um =  36 

To  Save  only one She etas n e w W orkbo ok th en y ou  need  to co py th esheet before sa ving  it
Optio n E xp lic it 
SubS aveAs( )
  Dim Sht  As Wor k she et  Dim FileName As St ri n g 
   Dim F ilePat h  A sS tring

  Fi lePa t h  = "C :\Te m p" 
    Fil eName=  S he ets("Sh ee t1").R an ge( "A1 ").Te x t

   Set  Sht = A ctive W orkbook.Sheets ( "Sheet1")

  S h t .C o py
   ActiveWork book . Save As F i le Nam e :=Fil ePath  & "\ "  & FileName

End Su b
To Sa ve Mu ltiple sheets  as new Wo r k b ook then  use Sh e ets(Array("She et1",  "Sheet2") ) .Copy
Op tionExplicit 
Sub Save A s ()
    D imSht  As  Wo r k sh eet
    Dim B o o k As  W orkbook 
   Dim F ile Nam e A s S tr ing
    D im FileP at hAs  S tri ng

  FilePa th  ="C :\T emp"   Fil eName  = S he et s ("S heet1") . Ra n g e("A 1" ). Text 

  SetBook = A ctiveWo rkbook

  W ithBo ok 
      .Sheets(Arra y( "Sheet1","S hee t2")). C o py
    E nd With

    ActiveWork b ook.Sav eAs  File Name :=FilePat h &  "\" &  Fi l eName
End S ub

Q: 

H o w  does a  S ola rTransit gi v e  mo re ac cu rate  determ ination of Earth-t o -Su n distance?
I u nder s t an d h o wS ola rP ara l l ax calculationdetermines  t h eEarth-Sund ist an ce usin g measu remen t s of (a ) the bas eline dis ta nceb e twe en two wid ely-sepa rated ter r estri a lteles cop es and  t he(b) t wo ang l es- one  at ea ch  teles cope-betweenthe baseline
 Examples
ThisWorkbook.SaveAs_Filename:=FilePath, fileformat:=52_

These are the main_file formats_in_Excel 2007-2013
51_=_xlOpenXMLWorkbook (without macro's_in 2007-2013, xlsx)
52_= xlOpenXMLWorkbookMacroEnabled (with or_without macro's in_2007-2013,_xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)
56 =_xlExcel8_(97-2003 format_in_Excel_2007-2013, xls)

*Or maybe you want_to save the one worksheet_workbook to_csv, txt or prn.*

".csv": FileFormatNum = 6
".txt": FileFormatNum_=_-4158
".prn": FileFormatNum =_36

To Save only one Sheet as new Workbook then_you need to copy the sheet_before saving it
Option_Explicit
Sub_SaveAs()
_   Dim_Sht As Worksheet
   _Dim FileName As String
  _ Dim FilePath As String

  _ FilePath = "C:\Temp"
  _ FileName = Sheets("Sheet1").Range("A1").Text

 _ _Set Sht = ActiveWorkbook.Sheets("Sheet1")

 _  Sht.Copy

_ _ ActiveWorkbook.SaveAs FileName:=FilePath_& "\" & FileName

End Sub

To Save_Multiple sheets as_new Workbook then use Sheets(Array("Sheet1", "Sheet2")).Copy
Option_Explicit
Sub_SaveAs()
  __Dim_Sht As_Worksheet
  __Dim Book_As_Workbook
    Dim FileName_As_String
    Dim FilePath As_String

   _FilePath_= "C:\Temp"
  _ FileName = Sheets("Sheet1").Range("A1").Text

 _  Set Book = ActiveWorkbook

_ _ With_Book
       .Sheets(Array("Sheet1", "Sheet2")).Copy
  _ End With

   _ActiveWorkbook.SaveAs FileName:=FilePath & "\"_& FileName

End_Sub

_Q:

How does a_Solar_Transit give_more accurate determination of Earth-to-Sun distance?

I understand_how Solar_Parallax calculation determines the Earth-Sun distance_using measurements of (a)_the_baseline distance between two widely-separated terrestrial_telescopes and the (b) two angles_- one at each telescope_-_between_the baseline