/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 vote183 views1 answer
Vba copy file
VBA
3 votes224 views2 answers
Excel "vba" match last value
VBA
1 vote161 views1 answer
Excel format cell as kilowatts
VBA
0 vote264 views1 answer
Find the name of the last excel sheet vb
VBA
0 vote176 views1 answer
Excel named range sum
VBA
0 vote182 views2 answers
Do until loop vba
VBA
1 vote192 views1 answer
Extract the second word in a text in excel
VBA
0 vote184 views1 answer
Vbs expand env var
VBA
0 vote175 views1 answer
Add text to combobox drop down vb
VBA
2 votes227 views1 answer
Vba round number
VBA