/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 vote167 views1 answer
Change "location" of binding navigator vb
VBA
1 vote185 views1 answer
Excel date to unix timestamp
VBA
8 votes266 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote180 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote203 views1 answer
Excel vba move down to next visible cell
VBA
0 vote184 views1 answer
Search combobox items vb.net
VBA
0 vote174 views1 answer
Excel vba send HTTP POST to server
VBA
0 vote185 views1 answer
Excel vba combine ranges
VBA
0 vote219 views1 answer
Vba ternary
VBA
5 votes122 views1 answer
Vlookup vba
VBA