macro to copy cells based on user input

how have a macro to copy a range of cells (name range) that the user specifies to a new worksheet?

Request is a tad vague - you don't specify how you wish to capture named range and "new worksheet" could mean create an entirely new sheet or use another sheet already created... you also need to specify what exactly you intend to copy (everything, values only (ie no formulae) etc

At a rough guess

Sub Example()
Dim nm As Name, strNm As String, vData
strNm = Application.InputBox("Enter Defined Name to Copy", Type:=2)
On Error Resume Next
Set nm = ThisWorkbook.Names(strNm)
If Not nm Is Nothing Then
    vData = Evaluate(nm.RefersTo)
    Sheets.Add After:=Sheets(Sheets.Count)
    If varType(vData) = 8204 Then
        Cells(1, "A").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        Cells(1,"A").Value = vData
    End If
    Set nm = Nothing
Else
    MsgBox "Computer Says No!", vbCritical, "Error"
End If
End Sub

there are plenty of other approaches - the above is just one.