Macro that forces user to save file on open

[dmars]

I need to crate a macro that will force the user to save the file as a different name when they open the file
I have this code and it works. I just need to have it run when the file is opened. Is there an on open function that I can add to make it do this?

Sub FS()
'fileSaveName = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")
fileSavename = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
'If user specified file name, perform Save and display msgbox

If fileSavename <> False Then
pointPos = InStrRev(fileSavename, ".")
fileSavename = Left(fileSavename, pointPos - 1) & Mid(fileSavename, pointPos)
ActiveWorkbook.SaveAs Filename:=fileSavename, FileFormat:=xlNormal

MsgBox "Save As " & fileSavename
End If

End Sub

Thanks a bunch.

[D_Rennie]

you can use the open procudure. " put this is ths workbook section"

Please Login or Register  to view this content.

Aternalty to force the user to save to a directory of your choosing can be done like.

Please Login or Register  to view this content.

hope that helps.

[shua79]

So if you paste your code in the workbook_Open module it will run everytime the book is opened.

This is found in a section above the macro modules called 'ThisWorkbook' From there paste this in and it should work fine.

Please Login or Register  to view this content.

[shg]

dmars, please take a few minutes to read the forum rules, and then edit your post to add code tags.