Can anyone help to to debug, because i can copy from the xlsm FOLDER to FOLDER2 but cannot export to htm.

Sub Copy_One_File()
Dim SourceFile, DestinationFile As String
Dim FOLDER As String
Dim FOLDER2 As String
FOLDER = Application.ActiveWorkbook.Path
FOLDER2 = (FOLDER & "\Extranet")
SourceFile = (FOLDER & "\2nd Line Support Roster.xlsm") ' Define source file name.
DestinationFile = (FOLDER2 & "\2nd Line Support Roster.xlsm") ' Define target file name.
FileCopy SourceFile, DestinationFile


Dim objRange As Range
Dim objcoord As String
Set objRange = ActiveSheet.Range("A3:A100,B3:B100,D3:D100,F3:F100")
objcoord = objRange.Address
Windows(FOLDER2 & "\2nd Line Support Roster.xlsm").Activate
With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _
Filename:=FOLDER2 & "\2nd Line Support Roster.htm", Sheet:="Sheet1", Source:=objcoord, _
HtmlType:=xlHtmlStatic, DivID:="2nd Line Support Roster_6214")
.Publish (True)
.AutoRepublish = False
End With


End Sub