将工作表另存为HTML

Question

我正在尝试使用工作号单元格B2作为文件名将工作表另存为HTML，但是出现错误；预期在fileFormat：= xlHTML

上的语句结尾

这就是我所拥有的：

cell = Sheets("Data").ComboBox1.Value & Range("B2").Value
Fpath = "C:\Data\"
fname = Fpath & cell & ".html"
ActiveWorkbook.SaveCopyAs Filename:=fname FileFormat:=xlHtml

谁能给我指出问题所在的地方？