I am using macro code to generate multiple workbooks from data in one large
workbook.  After the individual workbooks are generated, they are each saved
with a unique file name.  

How can I change the code to have it save in .htm format?  The code I'm
currently using is below.  I tried changing "FileExStr" to .htm, but that
doesn't work.  I'm assuming I need a new file format, and tried searching
online but can't find it anywhere.  Any suggestions?

Thanks!
Else
       'You use Excel 2007
       If ws1.Parent.FileFormat = 56 Then
           FileExtStr = ".xls": FileFormatNum = 56
       Else
           FileExtStr = ".xlsx": FileFormatNum = 51
       End If

then further down ..
'Save the file in the new folder and close it
           WBNew.SaveAs foldername & " Value = " _
                        & cell.Value & FileExtStr, FileFormatNum
           WBNew.Close False