Save only the Activesheet as a new file

**Broobi** · 03-20-2014, 08:37 AM

Hi All

Please could someone help me out with my question?

I have some code that allows me to save the a workbook as a new file in a specific location. Which works great. But what I'd like it to do, is only save the activesheet as a new file, and not the whole workbook.

Is this at all possible?

below is the code i use:

 Dim SaveName As String
       SaveName = Sheets("Lookup").Range("C35").Text
       ActiveWorkbook.SaveAs Filename:="S:\Services\·Section-Wide Data\MASTER DATA\MyFile\" & _
           SaveName & ".xlsm"

As always, your help is greatly appreciated!

**JOHN H. DAVIS** · 03-20-2014, 08:47 AM

Maybe:

Sub Broobi()
    Dim SaveName As String
    
        SaveName = Sheets("Lookup").Range("C35").Text
        ActiveSheet.Copy
        ActiveWorkbook.Sheets(1).Name = "Sheet1"
        ActiveWorkbook.SaveAs FileName:="S:\Services\·Section-Wide Data\MASTER DATA\MyFile\" & _
           SaveName & ".xlsm"

End Sub