VB控制EXCEL另存为问题!!!

本人把excel  用OLE控件潜入到VB  中,现在想在EXCEL中用VBA做一个  另存为  命令按扭,来将EXCEL文件另存,代码如下:  
 
Private  Sub  Cmdsaveas_Click()  
 
CommonDialog1.Filter  =  "Excel  File  ¦*.xls"  
On  Error  GoTo  errhandler  
CommonDialog1.showsave  
If  CommonDialog1.Filename  <>  ""  Then  
If  Dir(CommonDialog1.Filename)  <>  vbNullString  Then  
If  MsgBox("原文件存在，是否覆盖？",  vbYesNo,  "提示框")  =  vbYes  Then  
Kill  CommonDialog1.Filename  
Else  
Exit  Sub  
End  If  
End  If  
ActiveWorkbook.SaveAs  Filename:="C:\Book1.xls"  
End  If  
errhandler:  
       Exit  Sub  
 
End  Sub  
 
 
现在问题是:   在运行时,上面例子的方法可以出现另存对话框,但是只能将文件保存到固定的位置,例中是"C:\Book1.xls" ,我想在出来的另存为对话框中选择 存放位置 和 文件名,请问如何实现?????
请赐教!!!!!!