renameing activeworkbook

I have a user form in a file named 'Ex-Gratia'.

Part of the sub routine when the user form is completed saves the file and data entered on the user form to a directory with a unique reference. The rountine then shows the user form again so more data can be entered then saved.

My problem is that when the user form shows again, the file name is the unique reference, e.g. 'Ex-Gratia 09 Jan 05 11 28 16' (initial filename + date + time). I would like the file to be called 'Ex-Gratia'.

Ideally I need to do this without the file being closed then re-opened.

When 'Ex-Gratia' is initially opened the file will be read-only.


Thanks in advance for any help.

Sounds like you are saving to the file you have open. Wouldn't it be better to open a new xls and put the data in there, save and close that?

Also you could just put that data into a character separated variable file (csv) - seems a waste to hold in xls's for each row of data unless you are adding to the sheet (unlikely from the method you are following).

Also this sounds more like a database rather than a spreadsheet. Access or something else may be better?