Saving as Web Page

Hi!
Is there a code that will "Save as Web Page", the print area of the currently active worksheet and give it a file name based on referencing a cell within the currently active worksheet?
I've been searching for this for some time and cannot seem to find anything. Perhaps I'm just looking in the wrong place!
Thanks for any help or advise!

Dim rng as Range
set rng = Activesheet.Names("Print_Area")
activesheet.copy
activesheet.clearcontents
rng.copy Activesheet.Range(rng.Address).Paste

activeworkbook.SaveAs "C:\Myfolder\ & rng.parent.Range("B9").text & .html",
xlHtml

might get you started.

--
Regards,
Tom Ogilvy


"Brian Matlack" wrote:

>
> Hi!
> Is there a code that will "Save as Web Page", the print area of the
> currently active worksheet and give it a file name based on referencing
> a cell within the currently active worksheet?
> I've been searching for this for some time and cannot seem to find
> anything. Perhaps I'm just looking in the wrong place!
> Thanks for any help or advise!
>
>
> --
> Brian Matlack
> ------------------------------------------------------------------------
> Brian Matlack's Profile: http://www.excelforum.com/member.php...fo&userid=3508
> View this thread: http://www.excelforum.com/showthread...hreadid=531945
>
>

Thanks Tom!!