how can i save a sheet in my workbook as a separate file usi

[LMF]

how can i save a sheet in my workbook as a separate file using macro???

 

[Ricky Morris]

Try this:

Sub Save_Sheet()
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs FileName:="C:My DocumentsSheet1.xls"
End Sub

 

[LMF]

how about saving a range of cells to a new work sheet???

 

[nisht]

Sub saveonesheet()

Dim sht As Worksheet
Dim strshtname As String
Application.DisplayAlerts = False
strshtname = InputBox("Give the Name of the Sheet You Want to Protect as Workbook.")
For Each sht In Worksheets
If sht.Name <> strshtname Then
sht.Delete
End If
Next sht
Application.GetSaveAsFilename strshtname
' You can save your file in number of formats.
'ThisWorkbook.SaveAs "d:myback" & Worksheets("sheet4").Range("a1").Text, xlNormal

Application.DisplayAlerts = True
End Sub


ni****h desai
http://www.pexcel.com