Save Active Sheet to another Workbook

Hi guys.

Was curious if there is a way one could. Copy the active sheet that is open in a work book and save it to another file with the date in the name?

For example Report_11-03-08.xls

The only problem I see with this. How could I also make it append a letter to report if the file already exits

Example saved as
Report1_11-03-08.xls

Then just continue incrementing.

Below is all I've come up with so far.

Thanks

Sub CopySave()

Application.ScreenUpdating = False

ActiveSheet.Copy

Application.DisplayAlerts = False

ActiveSheet.SaveAs Filename:=ThisWorkbook.Path & "/" & "Report_" & Format(Date, "mm_dd_yy") & ".xls"


ActiveWorkbook.Close

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub