/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 vote345 views2 answers
Open url from vba
VBA
0 vote254 views10 answers
Vba excel create event log
VBA
-1 vote331 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote361 views1 answer
Excel vba first column in range
VBA
0 vote319 views1 answer
Vba loop through table
VBA
0 vote333 views1 answer
VB get external IP address
VBA
0 vote317 views1 answer
How to make a a msgbpx in vbs
VBA
4 votes327 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
22 votes547 views1 answer
Xl vba check for folder
VBA
0 vote326 views1 answer
Vba full date format
VBA