/VBA/Pivot data source not accepting table named range vba

Pivot data source not accepting table named range vba

'Check reference column and select the same number of rows in start and end columns
Sub selectByUsedRows(usedCol As String, selectStartCol As String, selectEndCol As String)
n = Range(usedCol & "1").End(xlDown).Row
Range(selectStartCol & "1:" & selectEndCol & n).Select
End Sub

'Dynamically select columns A to C with as many rows as are in A
Sub test()
refCol = "A"
selectStartCol = "A"
selectEndCol = "C"
selectByUsedRows refCol, selectStartCol, selectEndCol

'Code works until this point. There is now an active selection of A1:C8. 
'The following is hypothetical

Dim rngSelection As Range
Set rngSelection = ActiveSelection
Range(rngSourceData).CurrentRegion.Name = "rngSourceData"

Set objTable = Sheet5.PivotTableWizard

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    rngSourceData, Version:=xlPivotTableVersion14).CreatePivotTable _
    TableDestination:="Sheet5!R1C4", TableName:="PivotTable1", DefaultVersion _
    :=xlPivotTableVersion14
End Sub

Source: stackoverflow.com

Similar codes

0 vote230 views1 answer
Date as number vb
VBA
1 vote211 views1 answer
VBA Loop through recordset
VBA
1 vote234 views1 answer
Excel vba force recalculation
VBA
1 vote222 views1 answer
Random number generator vb.net
VBA
0 vote241 views1 answer
Excel web scraping
VBA
0 vote225 views1 answer
Vba boolean to string
VBA
0 vote260 views1 answer
Vba code for cutoff time
VBA
0 vote216 views1 answer
Vb check if row has column
VBA
1 vote232 views1 answer
Export datagridview to excel vb.net
VBA
0 vote243 views1 answer
Method showalldata of object _worksheet failed vba
VBA