How to create sheet with own name

[Romano_odK]

Good afternoon,
Using the below bit of VBA code I get a new sheet with a variable name. How could I change this to a name I want?

Thank you for your time.

Romano





Private Sub MaakPrijslijst_Click()


Dim SourcePivottable As PivotTable
Dim DestinationRange As Range
Dim aCell As Range

Set SourcePivottable = Worksheets("Prijslijst").PivotTables(1)
Set DestinationRange = Workbooks.Add.Worksheets("Sheet1").Range("A2")

' Copy TableRange1
SourcePivottable.TableRange1.copy
With DestinationRange.Offset( _
SourcePivottable.TableRange1.Row - SourcePivottable.TableRange2.Row, 0)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteColumnWidths
End With

' Copy everything above TableRange1 cell-by-cell
For Each aCell In SourcePivottable.TableRange2.Cells
If Not Intersect(aCell, SourcePivottable.TableRange1) Is Nothing Then Exit For
aCell.copy
With DestinationRange.Offset( _
aCell.Row - SourcePivottable.TableRange2.Row, _
aCell.Column - SourcePivottable.TableRange2.Column)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With
Next aCell


End Sub

 

[gordsky]

how will you be generating the name? from a cell, constant name? or just one you pick at random