Referencing a variable in place of worksheet name

G'Day everyone

Trying to create a Pivot on a worksheet that was created for a variable entered by user. But i am having trouble getting Excel to accept the variable as the worksheet name. (below in Red) Any ideas??

    'Create sheet 1
    
    Set NewSheet1 = Worksheets.Add
    NewSheet1.Name = outputvar1
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "This sheet will hold the pivot for:"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = outputvar1
    
            'Creates the pivot table on sheet
                    Dim WSD As Worksheet
                    Dim PTCache As PivotCache
                    Dim PT As PivotTable
                    Dim PRange As Range
                    Dim FinalRow As Long
                    Set WSD = Worksheets(outputvar1)

                    
                    ' Delete any prior pivot tables
                    For Each PT In WSD.PivotTables
                        PT.TableRange2.Clear
                    Next PT
                    
                    ' Define input area and set up a Pivot Cache
                    FinalRow = WSD.Cells(65536, 1).End(xlUp).Row
                    Set PRange = WSD.Cells(1, 1).Resize(FinalRow, 8)
                    Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange.Address)
                        
                    Set PT = PTCache.CreatePivotTable(TableDestination:=WSD.Range("J2"), TableName:="PivotTable1")
                    PT.ManualUpdate = True
                    ' Set up the row  & column fields
                    PT.AddFields RowFields:=Array("Product", "Customer"), ColumnFields:="Region"
                        
                    ' Set up the data fields
                    With PT.PivotFields("Revenue")
                        .Orientation = xlDataField
                        .Function = xlSum
                        .Position = 1
                    End With
                    
                    ' Calc the pivot table
                    PT.ManualUpdate = False
                    PT.ManualUpdate = True