Target Workbook Dialog

[Robert H]

This code which I have used or a while but do not know the source,
copys the active sheet and posts it in a new workbook as values only.

I need to mod it two ways. One I need to choose the destination
workbook using a dialog of some sort. The other is that I need it
name the new worksheet with the same name as the source.

Sub SingleSheetCopy()
ActiveSheet.Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

any help will be appreciated
Robert