Thank you everyone. I got it to work. :)
--
Thank you, Jodie


"Dave Peterson" wrote:

With activeworkbook
.saveas filename:="C:\somepath\" _
& left(.worksheets("Somesheetname").range("a1").valu e, 3) & ".xls", _
fileformat:=xlworkbooknormal
end with

If the value in A1 of that sheet is a number, you may want:

& left(format(.worksheets(somesheetname").range("a1" ).value, "000"), 3) & ...

so 1 is saved as 001.xls



Jodie wrote:

I would like to write a macro to save an excel file with the name being equal
to the first 3 digits of cell A1. Can this be done?
--
Thank you, Jodie

--

Dave Peterson
.