Save As B2
 

Hi
try:
dim fname
Dim fpath
fpath="c:\Daily Group Summary Reports\"
with activeworkbook
fname=.worksheets("sheet1").range("B2").value
.saveas fpath & fname
end with






--
Regards
Frank Kabel
Frankfurt, Germany


Wonderful,
Thanks Frank.
Also, how can i modify this to save in a particular folder. for
instance:
save as c:\Daily Group Summary Reports\fname
or something...
thanks.


---
Message posted from http://www.ExcelForum.com/