Hi
Which is the bit of code which sends the file?
regards
Paul

On Oct 21, 1:27*pm, Rpettis31
wrote:
I have a report that automatically sends and email and updates some files to
a user group. *However this morning when it ran the email is blank and I am
left with a temp sheet2 that was supposed to be emailed. *I have changed
nothing in the code. *So I am perplexed as to why this is happening. *

Here is my function.
* Function RangetoHTML(rng As Range)
* * ' Revised/Modified by Robert Pettis 3-04-08
* * * * Dim fso As Object
* * * * Dim ts As Object
* * * * Dim TempFile As String
* * * * Dim TempWB As Workbook

* * * * TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss")
& ".htm"

* * * * 'Copy the range and create a new workbook to past the data in
* * * * rng.Copy
* * * * Set TempWB = Workbooks.Add(1)
* * * * With TempWB.Sheets(1)
* * * * * * .Cells(1).PasteSpecial Paste:=8
* * * * * * .Cells(1).PasteSpecial xlPasteValues, , False, False
* * * * * * .Cells(1).PasteSpecial xlPasteFormats, , False, False
* * * * * * .Range("a1:n50").Select
* * * * * * Application.CutCopyMode = False
* * * * * * On Error Resume Next
* * * * * * .DrawingObjects.Visible = True
* * * * * * .DrawingObjects.Delete
* * * * * * On Error GoTo 0
* * * * End With

* * * * 'Publish the sheet to a htm file
* * * * With TempWB.PublishObjects.Add( _
* * * * * * *SourceType:=xlSourceRange, _
* * * * * * *Filename:=TempFile, _
* * * * * * *Sheet:=TempWB.Sheets(1).Name, _
* * * * * * *Source:=TempWB.Sheets(1).UsedRange.Address, _
* * * * * * *HtmlType:=xlHtmlStatic)
* * * * * * .Publish (True)
* * * * End With

* * * * 'Read all data from the htm file into RangetoHTML
* * * * Set fso = CreateObject("Scripting.FileSystemObject")
* * * * Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
* * * * RangetoHTML = ts.ReadAll
* * * * ts.Close
* * * * RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
* * * * * * * * * * * * * * * "align=left x:publishsource=")

* * * * 'Close TempWB
* * * * TempWB.Close SaveChanges:=False

* * * * 'Delete the htm file we used in this function
* * * * Kill TempFile

* * * * Set ts = Nothing
* * * * Set fso = Nothing
* * * * Set TempWB = Nothing
* * End Function