Automate Filename on 'Save As'

[Cadnium]

Hi All,

I have just spent an hour an a half trying to get this to work with no luck.

I have a read only file which I want to automatically name when the person using it goes to save it. The filename has been automated in 'Sheet4' cell "F5". I can get the VBA code to work at time, but I cannot get it to trigger when you go to save the sheet using the normal 'Save' or 'Save As' commands.

I already have a bit of VBA code in the document so I was not sure on how to write or trigger this part.

Any help would be greatly appreciated.

Cheers,

Cadnium

 

[Jon Peltier]

Re: Attachment Macro

.Attachments.Add("H:\PALMERL\" & Sheets("Sheet1").Range("A1").Value)