After serious thinking GS wrote :
Just to clean it up some, still using fully qualified object refs AND making
it a bit more self-documenting:

Sub CopyOverview()
Dim wksSource As Worksheet, wkbTarget As Workbook
Dim SaveAsFilename As String
SaveAsfilename = ActiveWorkbook.Path &"\Overview-" _
& FileNameDateString(IncludeNone) & ".xls"
Set wksSource = Sheets("overview")
Set wkbTarget = wksSource.Copy
With wkbTarget.Sheets("overview")
.UsedRange.Value = .UsedRange.Value
.SaveAs SaveAsFilename: .Close
End With
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc