Saving only one worksheet in a multiple sheet workbook

[Jim K]

I have a multiple sheet workbook that I would like to
create a macro for saving only the active worksheet with a
new file name (Office XP). Any ideas?

thanks!

 

[Ed Kratz]

Here is a simple Macro for saving the active worksheet
with the sheet name as the file name.

Sub SaveSheet()

ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name,
FileFormat:=xlNormal
End Sub

 

[Jim K]

Ed, thanks for the Macro. What syntax would I use to
prompt the user to be able to save the file to a
particular file/name of their choosing?

thanks, Jim