/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 vote346 views1 answer
Vba border weight
VBA
0 vote360 views2 answers
How to concatenate more than 40 lines in vba
VBA
3 votes390 views1 answer
Vba double quote
VBA
5 votes930 views1 answer
Vlookup vba
VBA
0 vote359 views1 answer
How to extract a file from an ISO:
VBA
0 vote393 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote359 views1 answer
Excel vba remove formatting from cell
VBA
0 vote364 views1 answer
Vba sheet hide unhide
VBA
5 votes382 views1 answer
Vba low word from Long Integer
VBA
0 vote343 views1 answer
Vba verticalalignment
VBA