maybe this will give you some idea. Assuming the filename you want to save as
is in A1 of the sheet where the button is.

Sub Button1_Click()
ThisWorkbook.SaveAs ActiveSheet.Range("A1").Text
Application.Dialogs(xlDialogSendMail).Show
", Arg2:="Email Subject"
End Sub



--
Hope that helps.

Vergel Adriano


"stuck4once" wrote:

Hi,

I have not got a clue about macros so any help will be greatly appreciated.

I need to create a macro that is attached to a button so that when this
button is pressed it saves the sreadsheet (the file name needs to relate to
the reference cell in the spread sheet) then this spreadsheet is attached to
an email so that it can be sent to whoever it needs to be sent to, you urgent
assistance on this will be greatly appreciated.

many thanks