go to the IDE (ALT+F11) add a standard code module and paste this:

Option Explicit

Sub Save_A_Copy()

Dim fn As String
fn = Application.GetSaveAsFilename()

If UCase(fn) = "FALSE" Then Exit Sub

ActiveWorkbook.SaveCopyAs fn


End Sub

step through the code using the F8 key, and you'll see pretty easily what it
does.
Read HELP on the two key methods, called GetSaveAsFilename and SaveCopyAs
since help is pretty good on these.

"Curt" wrote:

First program I have ever wrote am 68 and having fun.
trying to have user input into inputbox then use that as filename to save
acopy as want to save a copy as need to keep active sheet for more use values
remain. Is info available to understand if & end if where to put and
relationship to code. Got all formulas and update working fine. Saving is
giving me fitsss. Seems nothing I try works
Any help greatly taken Thanks
Curt