Go into the VB Editor and look in the project explorer. Find you workbook.
Under you workbook should be the ThisWorkbook entry. Right click on that
and select view code. Paste your code in that module. Remove it from other
locations. The below has been cleaned up to prevent problems with word wrap
in the email.

Dim FilePth As String, FileNm As String
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
If Range("F3").Value = "" Then
Application.EnableEvents = True
Exit Sub
End If
FilePth = "C:\TimeSheets\Test\"
FileNm = Range("F3").Value
ActiveWorkbook.SaveAs FilePth & _
FileNm, xlWorkbookNormal
Cancel = True
Application.EnableEvents = True

End Sub
__________________________________________________ ______
Kevin Brenner

Kevin ! wrote in message
...
I was got this code from the web, but I'm not able to execute it. I did
pasted to a module and I cant get it to work, I even try pasting it on the
code of a control box button and will not work for me. Can some one please
tell me what moronic mistake I'm doing,
All I'm trying to do is save the time stamp from cell F3
thank you!
__________________________________________________ _______
Dim FilePth As String, FileNm As String
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Application.EnableEvents = False
If Range("F3").Value = "" Then
Application.EnableEvents = True
Exit Sub
End If
FilePth = "C:\TimeSheets\Test\"
FileNm = Range("F3").Value
ActiveWorkbook.SaveAs FilePth & FileNm, xlWorkbookNormal
Cancel = True
Application.EnableEvents = True

End Sub
__________________________________________________ ______
Kevin Brenner