That worked great, Kevin. Thanks for all of your help!!

"Kevin Lehrbass" wrote:

Hi SJC,

Change strFileName = "xxx" to strFileName =
Range("G13").Value
Add this Sheets("Intro--Start Here").Select before
the line above.

This should do the trick! It basically select your intro sheet, and then
assigns a cell value (G13 in this case) to a variable which you then use save
the file.

Let me know if you have any more questions!

Cheers,

Kevin Lehrbass

www.spreadsheetsolutions4u.com



--
Kevin Lehrbass

www.spreadsheetsolutions4u.com


"SJC" wrote:

I currently have a code which I have listed below which will save a file when
the user selects the button. I have some users who will need to save two or
more files, which directs them to overwrite the file since currently, there
is no identifier in the file name. The indentifier that I would like to add
is on another spreadsheet in the same workbook. (Worksheet name:
Intro--Start Here; cell: G13)

Does anyone know how I can add this information to the filename so that each
file saved will have a unique name? Thanks for any suggestions.


Dim strPath As String
Dim strFileName As String

strPath = Application.DefaultFilePath & "\"
strFileName = "xxx"

ActiveWorkbook.SaveAs strPath & strFileName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Sheets("Intro--Start Here").Select
MsgBox ("xxx")

End Sub