macro for save as from .xls to .mthml

[copythat]

I would like to create a click button on Userform that allows user to do "save as" the data sheet with certain cells and in .mhtml format.

I have tried code shown below but it's not working. please if anybody could help for this. Thanks.

Public Sub SaveAs()
Const PATH As String = "c:\"
With ActiveWorkbook
'Range of the cells that I want to export
Range("K12:K3054").Select
.SaveAs FileName:=PATH & _
'file name and type of file
.Sheets("Sheet1").Range("A1").Value & ".mthml"
End With
End Sub