Target workbook dialog

[Robert H]

this code which I have use dofr a while but do not know the source
coppies 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