SaveAs

Hi, i am trying to save a range on Sheet1 as a web page. i have managed to save the entire workbook as a webpage but am struggling to get the right syntax for just the range on sheet1. when i do this manually i select the range, set the print area, then choose file-save as web page- and choose selection:print area or republish if i have done this before. i am not sure also where to add the directory i wish to save it to. the file name always changes, so i can either: use the name of the file or i can use the same file name that is entered into a cell (cell never changes). i hope this makes some sort of sense. here is the code i used to save the entire workbook

myName = This Workbook.Fullname
myHtmlName = Left(myName,Len(myName)-4)&".htm"
ThisWorkbook.SaveAs Filename:=myHtmlName:=,FileFormat:=xlHtml

thanks for any help