I am trying to create a number of Web pages and where the
data source range is referenced want to use
ActiveSheet.Usedrange.Copy instead of a defined range as I
have done in the example below, how do I do this?

Also where does it get the 21106 from as the workbook is
called LapsedAMC's?

Your help much appreciated.

ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"H:\DBM\Dbmt670\A357XPLapsedAMC.htm", "Sheet1",
Range("A1:D76"), xlHtmlStatic, _
"LapsedAMC's_21106", "").Publish (True)