/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 vote179 views1 answer
Delete all controls in an area vb
VBA
0 vote173 views1 answer
Excel R1C1 mode
VBA
0 vote194 views1 answer
If statement vdhl
VBA
0 vote184 views1 answer
Vb run command
VBA
0 vote184 views1 answer
Vba simple quote
VBA
0 vote187 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote190 views1 answer
Vba boolean to string
VBA
0 vote218 views1 answer
How to call gcd in vba
VBA
1 vote176 views1 answer
Vbs run
VBA
0 vote171 views1 answer
Check range is in another range vba
VBA