'Try This...

Sub SaveName()

Dim strPath As String
Dim strFile As String
Dim strDate As String

strPath = "C:\Temp"
strFile = Sheet1.Range("I3")
strDate = Format(Now(), "mm-dd-yyyy")

ActiveWorkbook.SaveAs FileName:=strPath & "\" & strFile &
strDate & ".xls"


End Sub



-----Original Message-----
An easy one for excel experts!

1. I need to save a file from a command button with the
current date attached at the end? Command Button is
written part is already complete.
2. I would like the name the file to be entered into a
cell, say I3. I want the button to use the name in the
cell, (I3), and then add the date proir to saving the
file.

Can any one help!


.