hi
after reading your other post, i think this may be what your are after.
ActiveSheet.Copy
'Workbooks.Add
'Range("A1").PasteSpecial xlPasteAll
Application.Dialogs(xlDialogSaveAs).Show
you wont be able to type the word save in a cell to launch the macro. you
can put a label from the control toolbox on the sheet, size it to the same
size as the cell, then type the word save in the label. the right click the
label and click view code.
this should default in......
Private sub label1_chick()
end sub
paste the above code between sub and end sub.
Regards
FSt1