Publish worksheet by command button?

[cottontop]

TIA

Trying to publish a worksheet in a workbook to the intranet, this is not working:

Private Sub CommandButton1_Click()
'
' Saves goals to intranet
'
'
With ActiveWorkbook.PublishObjects("Current_Goals")
.Filename = "\\Server\Goals\cgoals\cgoals_curr.htm"
.Publish (False)
End With

End Sub

Of course, this is a recorded macro.

Any help?

 

[RamziSaab]

try to save as webpage function

 

[cottontop]

Thanks RamziSaab,

If you do that, you save the entire workbook, all sheets.

I want to save a single sheet.

On that sheet I have a command button. The person updating that sheet will click on the button to "publish" it to our intranet.