/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

22 votes504 views1 answer
Excelvba check for directory
VBA
0 vote234 views1 answer
Vba keep command window open
VBA
25 votes505 views2 answers
Excel vba folder exist
VBA
1 vote225 views1 answer
Excel vba autofit
VBA
0 vote210 views1 answer
Vba find last column in a row with data
VBA
3 votes234 views1 answer
Vba post request json
VBA
0 vote205 views1 answer
Le contrôle SpinButton (Toupie)
VBA
0 vote221 views1 answer
Excel vba delete folder
VBA
0 vote227 views1 answer
Vba count all row
VBA
0 vote242 views1 answer
Build an index all files of a FTP site
VBA