If Not ActiveWorkbook.Saved Then
If ActiveWorkbook.Path = "" Then
filesavename = Excel.Application.GetSaveAsFil*ename( _
filefilter:="Excel Files (*.xls), *.xls")
ThisWorkbook.SaveAs filename:=filesavename
Else
ActiveWorkbook.Save
End If
End If

--

Vasant