Owen: Not working: Let me show you what I have: First part is no longer being used
'Dim pname As String
'Dim fname As String
'pname = "C:\Network_2000\Current_Projects\"
'fname = Worksheets("General info").Range("C47").Value & "#" & Range("I3").Value
'fname = "" 'this is to set the value to null'
'fname = Worksheets("Road Editor").Range("I3").Value
'& Format(Now, "mm-dd-yyyy")
'ActiveWorkbook.SaveAs Filename:="" & pname & fname & ""

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

'path exists
strPath = "C:\Network_2000\Current_Projects"
strFile = Sheet1.Range("I3")
' returns correct value from the cell'
strDate = Format(Now, "mm-dd-yyyy")
'returns correct date
'ActiveWorkbook.SaveAs Filename:="" & strPath & strFile & strDate
'ActiveWorkbook.SaveAs Filename:="" & strPath & strFile & strDate & ""
ActiveWorkbook.SaveAs Filename:=strPath & "\" & strFile & strDate & ".xls"
'this last line above will not complile, still yellow color.

As you can see, I have tried several different approaches, I still cannot get it to work! I have included everything. I used the ' to eliminate the old code as it were.
Can you see the problem? Please help!

"Owen" wrote:

'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!


.