/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 vote261 views1 answer
Returns an array from function vba
VBA
0 vote280 views1 answer
.net crash app
VBA
0 vote301 views1 answer
Vbnet round to nearnest thousand
VBA
3 votes280 views1 answer
Vba make long from two words
VBA
0 vote287 views1 answer
Excel vba protect shapes
VBA
-1 vote278 views1 answer
Vba code to add new column in table
VBA
0 vote277 views1 answer
Vbscript for loop
VBA
0 vote301 views1 answer
Vba ternary
VBA
1 vote275 views1 answer
Vba date to unix timestamp
VBA
0 vote315 views1 answer
Programmatically copy data from one workshet to another excel
VBA