Saving One Sheet as One Workbook

[DaveM]

Hi all

This macro saves all sheets in my workbook, what code do I need to save the
sheet as One workbook, save a workbook with just that one sheet in it.

Public Sub BobsSaveAs()
Const PATH As String = "c:\test\"
With ActiveWorkbook
..SaveAs Filename:=PATH & _
..Sheets("Test1").Range("G1").Value & ".xls"
End With
End Sub

Still learning

Thanks in advance

Dave

 

[Anony]

Assuming I understood you correctly, you want the sheet "Test1" to be the
only sheet in a new workbook, and save that new workbook instead. Try this:

Sub SaveOneSheet()
Dim Sht As Worksheet
Const PATH As String = "C:\test\"

Set Sht = ActiveWorkbook.Sheets("Test1")
Sht.Select
Sht.Copy
ActiveWorkbook.SaveAs Filename:= _
PATH & Sht.Range("G1") & ".xls", FileFormat:=xlNormal
End Sub

 

[Gary Keramidas]

basically all you need is

Sub test()
Const fPATH As String = "c:\test\"
Worksheets("test1").Copy
ActiveWorkbook.SaveAs fPATH & Sheets("Test1").Range("G1").Value & ".xls"
End Sub

 

[DaveM]

Thanks guys, All the best

basically all you need is

Sub test()
Const fPATH As String = "c:\test\"
Worksheets("test1").Copy
ActiveWorkbook.SaveAs fPATH & Sheets("Test1").Range("G1").Value & ".xls"
End Sub