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