Save as HTML on close

Hi all,

I currently have an issue where I've got an xlsm workbook macro running to refresh my workbook and then output the new workbook to an xlsx file with the following code.

Sub CreateSkinnyMe()
Dim x As Integer

ActiveWorkbook.RefreshAll

For x = 1 To ActiveWorkbook.Connections.Count
ActiveWorkbook.Connections(1).Delete
Next

On Error Resume Next
Application.DisplayAlerts = False
Kill "c:\cerner\excel\" & Split(ActiveWorkbook.Name, ".")(0) & ".htm"
ActiveWorkbook.SaveAs "c:\cerner\excel\" & Split(ActiveWorkbook.Name, ".")(0), xlWorkbookDefault
Application.DisplayAlerts = True
Application.Quit

End Sub

What I'd like to do is also output the file as HTML. I've tried adding another "ActiveWorkbook.SaveAs" line but keep getting a runtime error.

I'm fairly new to this so any pointers are greatly appreciated.

Thanks

Originally Posted by patel45

Please Login or Register  to view this content.

Thanks 45, I was getting the sheet looping when creating the html page so I changed the code a little from ActiveSheet.Copy to ActiveWorkbook.copy and that resolved my issues.

Thanks again, much appreciated.