In your XLA file, use code like

Sub SaveInput()
ThisWorkbook.Worksheets("Input").Copy
Activeworkbook.SaveAs Format(Date,"yyyymmdd") & " Input file.xls"
End Sub

HTH,
Bernie
MS Excel MVP



"Vinod" wrote in message
...
Hi All,

I've designed a Add-in which copies current workbook sheet1 & sheet2 data
into Input sheet of Add-In.

My requirement is Input sheet has to be saved as new file with .xls
extension.

Is it possible to do like my requirement if not what is the best method to
reachout my requirement?

Advanced Thanks
Vins