This example saves the range D5:D9 on the First Quarter worksheet in the active workbook to a Web page called “stockreport.
htm.” The Spreadsheet component is used to add interactivity to the Web page.
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:="\\Server2\Q1\stockreport.htm", _
Sheet:="First Quarter", _
Source:="D5:D9", _
HTMLType:=xlHTMLCalc).Publish