Joe,

Try this

Sheets("MON AFT").Select
thisFilename = "C:\headoffice\"
thisFilename = thisFilename & CStr(Range("BW3"))
thisFilename = thisFilename & "_04_abcsheet"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=thisFileName
Application.DisplayAlerts = True

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Joe Bannister" wrote in message
...
Hello all,

I have a macro that does various things and then saves
the new spreadsheet under a new name.

The code is as follows:

Sheets("MON AFT").Select
thisFilename = "C:\headoffice\"
thisFilename = thisFilename & CStr(Range("BW3"))
thisFilename = thisFilename & "_04_abcsheet"
ActiveWorkbook.SaveAs thisFilename

The users are not the most diligent and may access the
original file and run the macro again. When it comes to
save it tells them that the file already exists, do they
want to overwrite? It's possible they will say no.

If they do i get an error and the programming is exposed
which contains details of the passwords. Is there a way
of stopping this happening?

Cheers

Joe