hi
would this work for you?
Private Sub Workbook_Open()
If MsgBox("Do you want to save the file under a different name?") = vbYes
Then
Application.Dialogs(xlDialogSaveAs).Show
Else
Exit Sub
End If
End Sub

regards
FSt1

"wrvadmin" wrote:

I need help in creating a macro that will prompt the user who opens the
workbook to automatically save the workbook with a new file name. I have a
workbook that is revised on a daily basis and I want to maintain the previous
day's file. I am generally the one who opens the workbook, but there will be
days when someone else opens it on their computer. It doesn't have to be a
mandatory save, but I want the prompt there as a reminder to save with a new
filename.