Dear All,

Can you have a look at this and please tell why it doesnt work




Sub CopySheetAsHTML()

Dim fName As String
Dim wks As Worksheet

Set wks = ActiveSheet
fName = wks.Range("J4").Value

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"I:\" & fName & ".htm", wks.Name, "DataRange", _
xlHtmlStatic, wks.Range("J4").Value)
.Publish (True)
End With
End Sub




Many Thanks in advance



Steve

Where to start?

1. Do you have this code in a standard Excel module?
2. Do you have a worksheet (not a chart sheet) activated? If so, is
there anything in cell J4? If so, what?
3. Do you have an I: drive?
4. Is the workbook saved?
5. Is "DataRange" referring to anything?


HTH,
JP

On Mar 2, 7:11*pm, steve wrote:
Dear All,

Can you have a look at this and please tell why it doesnt work

Sub CopySheetAsHTML()

Dim fName As String
Dim wks As Worksheet

Set wks = ActiveSheet
fName = wks.Range("J4").Value

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
* * "I:\" & fName & ".htm", wks.Name, "DataRange", _
* * * * xlHtmlStatic, wks.Range("J4").Value)
* * .Publish (True)
End With
End Sub

Many Thanks in advance

Steve