ok, scratch that... now i have this code....

Sub saveaswebpage()



With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "J:\Isolation Data Base\IsolationWebsite\DryMillA\" & Range("B35").Value & ".htm", "Sheet1", "$A$34:$L$67", _
        xlHtmlStatic, "Demo2(1)_22030", "")
        .Publish (True)
        .AutoRepublish = False
    End With
End Sub
runtime error at .publish (true) line