sStr = Thisworkbook.Path & "\" & activecell.value & ".xls"

fname = application.GetSaveAsFileName( InitialFileName:=sStr)

--
Regards,
Tom Ogilvy




"Bill Sturdevant" wrote in
message ...
I am trying to create a button that will pick a value from a specified
cell
and put up a Save As dialog pre-filled with the name of the file as
Value-I-Picked.xls and the suggested path as the path of the workbook I
originally opened.

Where can I find suggestions for appropriate code?