Save a sheet as an excel file

[jt46]

with multiple sheets in a work book, I want to create a button to save just only a particular sheet. Your help is appreciated. Thank you.

John

[slc]

I have this macro (help from other Excel gurus) that save the current active sheet as an Excel file with today's date. Hope this is similar to what you are looking for.


Sub FromSheetoWorkbook()
'
' Create individual workbook from active sheet Macro
'
Dim Fname, strMessage As String
'Save active sheet as a workbook with today's date
Fname = ActiveSheet.Name & "-" & Format(Date, "ddmmmyy")
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Fname & ".xls"
ActiveWorkbook.Close SaveChanges:=False
' Display saved message
strMessage = Fname & " saved in " & vbCrLf & vbCrLf & CurDir
MsgBox strMessage, vbInformation, "File Saved!"
'
End Sub